Mercurial > emacs

changeset 16803:3d4a27ecfba9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(repeat-complex-command): Bind minibuffer-history-position and minibuffer-history-sexp-flag only for the read-from-minibuffer call.
author Richard M. Stallman <rms@gnu.org>
date Wed, 01 Jan 1997 03:37:37 +0000
parents 93fc7aff4cc2
children 0ba6599135d6
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Tue Dec 31 22:11:05 1996 +0000
+++ b/lisp/simple.el	Wed Jan 01 03:37:37 1997 +0000
@@ -508,13 +508,13 @@
 to get different commands to edit and resubmit."
   (interactive "p")
   (let ((elt (nth (1- arg) command-history))
-	(minibuffer-history-position arg)
-	(minibuffer-history-sexp-flag t)
 	newcmd)
     (if elt
 	(progn
 	  (setq newcmd
-		(let ((print-level nil))
+		(let ((print-level nil)
+		      (minibuffer-history-position arg)
+		      (minibuffer-history-sexp-flag t))
 		  (read-from-minibuffer
 		   "Redo: " (prin1-to-string elt) read-expression-map t
 		   (cons 'command-history arg))))