Commit 74ae5fab authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(repeat-complex-command): Bind

minibuffer-history-position and minibuffer-history-sexp-flag
only for the read-from-minibuffer call.
parent 8dbbc384
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment