(eval, view-and-eval) <define-ibuffer-op>: Use the interactive spec of

`eval-expression'.  From Denis St�� <dstuenkel@googlemail.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f6534c07b6c2f5845bee629a4087d2c72151e479..92c9d1087875a0d9a3b977d236d77a29bbef9f7f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-03  Denis St\e,A|\e(Bnkel  <dstuenkel@googlemail.com>  (tiny change)
+
+       * ibuf-ext.el (eval, view-and-eval) <define-ibuffer-op>:
+       Use the interactive spec of `eval-expression'.
+
 2006-10-02  Michael Welsh Duggan  <md5i@cs.cmu.edu>
 
        * progmodes/sh-script.el (sh-prev-thing): Fix last change.

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 292e158c097273b5d3ea63ba5b14aaa042e7db89..4ab7b9eda41dc7c3715a057513f70682c3daceb4 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -370,7 +370,11 @@ With numeric ARG, enable auto-update if and only if ARG is positive."
   "Evaluate FORM in each of the buffers.
 Does not display the buffer during evaluation. See
 `ibuffer-do-view-and-eval' for that."
-  (:interactive "xEval in buffers (form): "
+  (:interactive
+   (list
+    (read-from-minibuffer
+     "Eval in buffers (form): "
+     nil read-expression-map t 'read-expression-history))
    :opstring "evaluated in"
    :modifier-p :maybe)
   (eval form))
@@ -379,7 +383,11 @@ Does not display the buffer during evaluation. See
 (define-ibuffer-op view-and-eval (form)
   "Evaluate FORM while displaying each of the marked buffers.
 To evaluate a form without viewing the buffer, see `ibuffer-do-eval'."
-  (:interactive "xEval viewing buffers (form): "
+  (:interactive
+   (list
+    (read-from-minibuffer
+     "Eval viewing in buffers (form): "
+     nil read-expression-map t 'read-expression-history))
    :opstring "evaluated in"
    :complex t
    :modifier-p :maybe)