diff options
author | John Paul Wallington <jpw@pobox.com> | 2006-10-02 23:26:42 +0000 |
---|---|---|
committer | John Paul Wallington <jpw@pobox.com> | 2006-10-02 23:26:42 +0000 |
commit | a0370ba42e123de20e3267d920968a980345c39d (patch) | |
tree | e3d8f2b71a32b71ccf9f252684c5bc1f9b74036b /lisp/ibuf-ext.el | |
parent | 2ec6dd12200bb769d53fec3fb7f77bd9bd254b0e (diff) | |
download | emacs-a0370ba42e123de20e3267d920968a980345c39d.tar.gz |
(eval, view-and-eval) <define-ibuffer-op>: Use the interactive spec of
`eval-expression'. From Denis St�� <dstuenkel@googlemail.com>.
Diffstat (limited to 'lisp/ibuf-ext.el')
-rw-r--r-- | lisp/ibuf-ext.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 292e158c097..4ab7b9eda41 100644 --- 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) |