mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-23 10:34:07 +00:00
(eval, view-and-eval) <define-ibuffer-op>: Use the interactive spec of
`eval-expression'. From Denis St�� <dstuenkel@googlemail.com>.
This commit is contained in:
parent
2ec6dd1220
commit
a0370ba42e
@ -1,3 +1,8 @@
|
||||
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)
|
||||
|
Loading…
Reference in New Issue
Block a user