diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-01 03:37:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-01 03:37:37 +0000 |
| commit | 74ae5fabeb1ef1b611da835e3d28c8b530707613 (patch) | |
| tree | 2a6d8756b7e4758e2f72a9091df1bf6d5716deec /lisp | |
| parent | 8dbbc384daa395eb77880590d9356b92477f5c81 (diff) | |
| download | emacs-74ae5fabeb1ef1b611da835e3d28c8b530707613.tar.gz | |
(repeat-complex-command): Bind
minibuffer-history-position and minibuffer-history-sexp-flag
only for the read-from-minibuffer call.
Diffstat (limited to 'lisp')
| -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)))) |