# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 779533262 0
# Node ID bd55f44d82f148362a4f2423ea6def06301500a4
# Parent  14b8f8a28ace9857d88f4ba2a324791f846c362d
(repeat-complex-command, next-history-element,
previous-matching-history-element): Override print-level when
offering command lines to edit.

diff -r 14b8f8a28ace -r bd55f44d82f1 lisp/simple.el
--- 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)))))