procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(edit-and-eval-command): Elements of command-history are forms, not strings.

Browse source
This commit is contained in:
Karl Heuer 1994-10-20 20:14:45 +00:00
parent 7ee9eab9d7
commit 5d6c83ae15
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/simple.el
View file

@ -404,6 +404,15 @@ the minibuffer, then read and evaluate the result."
(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 evallable 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.
(or (equal command (car command-history))
(setq command-history (cons command command-history)))
(eval command)))
(defun repeat-complex-command (arg)