mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1993-11-23 11:03:16 +00:00
parent a9f2c8845b
commit db16f109c9
1 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/simple.el
View File

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