[Emacs-diffs] trunk r113967: * lisp/emacs-lisp/pp.el (pp-eval-expression, pp-macroexpand-expression):

[Stefan Monnier]

------------------------------------------------------------
revno: 113967
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2013-08-21 14:26:15 -0400
message:
  * lisp/emacs-lisp/pp.el (pp-eval-expression, pp-macroexpand-expression):
  Use read--expression so that completion works again.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/pp.el          pp.el-20091113204419-o5vbwnq5f7feedwu-781

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-21 01:16:27 +0000
+++ b/lisp/ChangeLog    2013-08-21 18:26:15 +0000
@@ -1,10 +1,15 @@
+2013-08-21  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/pp.el (pp-eval-expression, pp-macroexpand-expression):
+       Use read--expression so that completion works again.
+
 2013-08-21  Sam Steingold  <address@hidden>
 
        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  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/pp.el'
--- a/lisp/emacs-lisp/pp.el     2013-01-01 09:11:05 +0000
+++ b/lisp/emacs-lisp/pp.el     2013-08-21 18:26:15 +0000
@@ -127,8 +127,7 @@
   "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 @@
 (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 ()