mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(edit-and-eval-command): Bind print-level and

Browse Source 
minibuffer-history-sexp-flag around call to read-from-minibuffer.
Correct initial position in command-history.
This commit is contained in:
Luc Teirlinck 2004-01-31 15:07:40 +00:00
parent eb99610125
commit 11178a0606
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

20
lisp/simple.el
View File

@ -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.