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 | 0532464ab968adf78810a267b234cf5cb06f6184 (patch) | |
| tree | 79bb18ca316b4689f2a57f9e9a98b64d9fc42810 | |
| parent | 86ca5defca5070ed75190e746187e50c802aa099 (diff) | |
| download | emacs-0532464ab968adf78810a267b234cf5cb06f6184.tar.gz | |
(repeat-complex-command): Bind
minibuffer-history-position and minibuffer-history-sexp-flag
only for the read-from-minibuffer call.
| -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)))) |