diff options
| -rw-r--r-- | lisp/simple.el | 6 |
1 files 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)))) |