mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/pp.el (pp-eval-expression, pp-macroexpand-expression):

Browse Source 
Use read--expression so that completion works again.
This commit is contained in:
Stefan Monnier 2013-08-21 14:26:15 -04:00
parent df391f9b3f
commit 9f7b19259d
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,10 +1,15 @@
2013-08-21 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/pp.el (pp-eval-expression, pp-macroexpand-expression):
Use read--expression so that completion works again.
2013-08-21 Sam Steingold <sds@gnu.org>
Add rudimentary inferior shell interaction
* progmodes/sh-script.el (sh-shell-process): New buffer-local variable.
(sh-set-shell): Reset it.
(sh-show-shell, sh-cd-here, sh-send-line-or-region-and-step): New
commands (bound to C-c C-z, C-c C-d, and C-c C-n).
(sh-show-shell, sh-cd-here, sh-send-line-or-region-and-step):
New commands (bound to C-c C-z, C-c C-d, and C-c C-n).
2013-08-20 Stefan Monnier <monnier@iro.umontreal.ca>

6
lisp/emacs-lisp/pp.el
View File

@ -127,8 +127,7 @@ after OUT-BUFFER-NAME."
"Evaluate EXPRESSION and pretty-print its value.
Also add the value to the front of the list in the variable `values'."
(interactive
(list (read-from-minibuffer "Eval: " nil read-expression-map t
'read-expression-history)))
(list (read--expression "Eval: ")))
(message "Evaluating...")
(setq values (cons (eval expression) values))
(pp-display-expression (car values) "*Pp Eval Output*"))
@ -137,8 +136,7 @@ Also add the value to the front of the list in the variable `values'."
(defun pp-macroexpand-expression (expression)
"Macroexpand EXPRESSION and pretty-print its value."
(interactive
(list (read-from-minibuffer "Macroexpand: " nil read-expression-map t
'read-expression-history)))
(list (read--expression "Macroexpand: ")))
(pp-display-expression (macroexpand expression) "*Pp Macroexpand Output*"))
(defun pp-last-sexp ()