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