Mercurial > emacs
changeset 8734:bd55f44d82f1
(repeat-complex-command, next-history-element,
previous-matching-history-element): Override print-level when
offering command lines to edit.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 14 Sep 1994 09:01:02 +0000 |
| parents | 14b8f8a28ace |
| children | d1f0811de024 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 10 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Sep 14 09:00:44 1994 +0000 +++ b/lisp/simple.el Wed Sep 14 09:01:02 1994 +0000 @@ -423,9 +423,10 @@ (if elt (progn (setq newcmd - (read-from-minibuffer - "Redo: " (prin1-to-string elt) read-expression-map t - (cons 'command-history arg))) + (let ((print-level nil)) + (read-from-minibuffer + "Redo: " (prin1-to-string elt) read-expression-map t + (cons 'command-history arg)))) ;; If command was added to command-history as a string, ;; get rid of that. We want only evallable expressions there. @@ -512,14 +513,16 @@ "No earlier matching history item"))) (if (string-match regexp (if minibuffer-history-sexp-flag - (prin1-to-string (nth (1- pos) history)) + (let ((print-level nil)) + (prin1-to-string (nth (1- pos) history))) (nth (1- pos) history))) (setq n (+ n (if (< n 0) 1 -1))))) (setq minibuffer-history-position pos) (erase-buffer) (let ((elt (nth (1- pos) history))) (insert (if minibuffer-history-sexp-flag - (prin1-to-string elt) + (let ((print-level nil)) + (prin1-to-string elt)) elt))) (goto-char (point-min))) (if (or (eq (car (car command-history)) 'previous-matching-history-element) @@ -562,7 +565,8 @@ (symbol-value minibuffer-history-variable)))) (insert (if minibuffer-history-sexp-flag - (prin1-to-string elt) + (let ((print-level nil)) + (prin1-to-string elt)) elt))) (goto-char (point-min)))))