Commit db16f109 authored by Richard M. Stallman's avatar Richard M. Stallman

(repeat-complex-command): Undo Oct 2 change.

parent a9f2c884
......@@ -420,18 +420,15 @@ to get different commands to edit and resubmit."
"Redo: " (prin1-to-string elt) read-expression-map t
(cons 'command-history arg)))
;;; read-from-minibuffer handles the adding of what is read to the history
;;; variable.
;;;
;;; ;; 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 newcmd (car command-history))
;;; (setq command-history (cons newcmd command-history)))
;; 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 newcmd (car command-history))
(setq command-history (cons newcmd command-history)))
(eval newcmd))
(ding))))
......
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