mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-23 10:34:07 +00:00
(edit-and-eval-command): Bind print-level and
minibuffer-history-sexp-flag around call to read-from-minibuffer. Correct initial position in command-history.
This commit is contained in:
parent
eb99610125
commit
11178a0606
@ -1,3 +1,9 @@
|
||||
2004-01-31 Luc Teirlinck <teirllm@auburn.edu>
|
||||
|
||||
* simple.el (edit-and-eval-command): Bind print-level and
|
||||
minibuffer-history-sexp-flag around call to read-from-minibuffer.
|
||||
Correct initial position in command-history.
|
||||
|
||||
2004-01-30 Luc Teirlinck <teirllm@auburn.edu>
|
||||
|
||||
* files.el (read-directory-name): Adapt the docstring to recent
|
||||
|
@ -678,15 +678,17 @@ the echo area."
|
||||
COMMAND is a Lisp expression. Let user edit that expression in
|
||||
the minibuffer, then read and evaluate the result."
|
||||
(let ((command
|
||||
(unwind-protect
|
||||
(read-from-minibuffer prompt
|
||||
(prin1-to-string command)
|
||||
read-expression-map t
|
||||
'(command-history . 1))
|
||||
;; If command was added to command-history as a string,
|
||||
;; get rid of that. We want only evaluable expressions there.
|
||||
(if (stringp (car command-history))
|
||||
(setq command-history (cdr command-history))))))
|
||||
(let ((print-level nil)
|
||||
(minibuffer-history-sexp-flag (1+ (minibuffer-depth))))
|
||||
(unwind-protect
|
||||
(read-from-minibuffer prompt
|
||||
(prin1-to-string command)
|
||||
read-expression-map t
|
||||
'command-history)
|
||||
;; If command was added to command-history as a string,
|
||||
;; get rid of that. We want only evaluable expressions there.
|
||||
(if (stringp (car command-history))
|
||||
(setq command-history (cdr command-history)))))))
|
||||
|
||||
;; If command to be redone does not match front of history,
|
||||
;; add it to the history.
|
||||
|
Loading…
Reference in New Issue
Block a user