Commit a0370ba4 authored by John Paul Wallington's avatar John Paul Wallington
Browse files

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

`eval-expression'.  From Denis St�� <dstuenkel@googlemail.com>.
parent 2ec6dd12
2006-10-03 Denis St,A|(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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment