Commit 5d6c83ae authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 7ee9eab9
......@@ -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)
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