From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 1 Jan 1997 03:37:37 +0000 (+0000)
Subject: (repeat-complex-command): Bind
X-Git-Tag: emacs-20.1~3141
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74ae5fabeb1ef1b611da835e3d28c8b530707613;p=emacs.git

(repeat-complex-command): Bind
minibuffer-history-position and minibuffer-history-sexp-flag
only for the read-from-minibuffer call.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 64863d15836..5fe8f638d62 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -508,13 +508,13 @@ You can use the minibuffer history commands \\<minibuffer-local-map>\\[next-hist
 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))))