Mercurial > emacs
changeset 73221:a13e990ebd44
(eval, view-and-eval) <define-ibuffer-op>: Use the interactive spec of
`eval-expression'. From Denis St?? <dstuenkel@googlemail.com>.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 02 Oct 2006 23:23:25 +0000 |
| parents | 957d5f092891 |
| children | 889f058d274a |
| files | lisp/ibuf-ext.el |
| diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Mon Oct 02 18:28:22 2006 +0000 +++ b/lisp/ibuf-ext.el Mon Oct 02 23:23:25 2006 +0000 @@ -370,7 +370,11 @@ "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 @@ (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)