diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-14 09:01:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-14 09:01:02 +0000 |
| commit | 7908d27ce0ca21164af1e6ea4918f21f542d399a (patch) | |
| tree | 8ef39f6e6feff69e6bedeab214014d1a4f2ac7e5 | |
| parent | 838cd60df95de0207196b78e483ce5288ad784e7 (diff) | |
| download | emacs-7908d27ce0ca21164af1e6ea4918f21f542d399a.tar.gz | |
(repeat-complex-command, next-history-element,
previous-matching-history-element): Override print-level when
offering command lines to edit.
| -rw-r--r-- | lisp/simple.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index c26690c9ca3..6bcfd42d46c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -423,9 +423,10 @@ to get different commands to edit and resubmit." (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 @@ If N is negative, find the next or Nth next match." "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 @@ If N is negative, find the previous or Nth previous match." (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))))) |