(repeat-complex-command, next-history-element,

previous-matching-history-element): Override print-level when
offering command lines to edit.

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