procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(repeat-complex-command): Bind

Browse source 
minibuffer-history-position and minibuffer-history-sexp-flag
only for the read-from-minibuffer call.
This commit is contained in:
Richard M. Stallman 1997-01-01 03:37:37 +00:00
parent 8dbbc384da
commit 74ae5fabeb
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/simple.el
View file

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