(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 64863d15836438c5fb305f599360c49d2c3af657..5fe8f638d62ac2e1da03a27a0af018cf88988284 100644 (file)
--- 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))))