Mercurial > emacs

diff lisp/simple.el @ 864:fe5f6b7c9727

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Fri, 24 Jul 1992 08:17:31 +0000
parents 46630543d659
children 1b3af6ad85be
line wrap: on
line diff
--- a/lisp/simple.el	Fri Jul 24 07:15:18 1992 +0000
+++ b/lisp/simple.el	Fri Jul 24 08:17:31 1992 +0000
@@ -391,7 +391,9 @@
 	  (setq newcmd (read-from-minibuffer "Redo: "
 					     (prin1-to-string elt)
 					     minibuffer-local-map
-					     t))
+					     t
+					     (cons 'command-history
+						   arg)))
 	  ;; If command to be redone does not match front of history,
 	  ;; add it to the history.
 	  (or (equal newcmd (car command-history))
@@ -415,7 +417,7 @@
 	(insert
 	 (if minibuffer-history-sexp-flag
 	     (prin1-to-string elt)
-	   elt))))
+	   elt)))
       (goto-char (point-min)))))
 
 (defun previous-history-element (n)