From 74ae5fabeb1ef1b611da835e3d28c8b530707613 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Wed, 1 Jan 1997 03:37:37 +0000
Subject: [PATCH] (repeat-complex-command): Bind minibuffer-history-position
 and minibuffer-history-sexp-flag only for the read-from-minibuffer call.

---
 lisp/simple.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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