Mercurial > emacs

changeset 20022:c9ed682ff86f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(previous-matching-history-element): No need to bind minibuffer-history-sexp-flag any more. (next-matching-history-element): Likewise. (repeat-complex-command): Bind minibuffer-history-sexp-flag to the minibuffer depth. (next-history-element): Compare minibuffer-history-sexp-flag against the current minibuffer depth to verify its validity. (previous-matching-history-element): Likewise. (minibuffer-history-sexp-flag): Update doc string.
author Karl Heuer <kwzh@gnu.org>
date Thu, 02 Oct 1997 03:04:15 +0000
parents 42354e3ea997
children b89c59bccc68
files lisp/simple.el
diffstat 1 files changed, 8 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Oct 02 03:03:50 1997 +0000
+++ b/lisp/simple.el	Thu Oct 02 03:04:15 1997 +0000
@@ -563,7 +563,7 @@
 	  (setq newcmd
 		(let ((print-level nil)
 		      (minibuffer-history-position arg)
-		      (minibuffer-history-sexp-flag t))
+		      (minibuffer-history-sexp-flag (1+ (minibuffer-depth))))
 		  (read-from-minibuffer
 		   "Redo: " (prin1-to-string elt) read-expression-map t
 		   (cons 'command-history arg))))
@@ -587,7 +587,9 @@
 (defvar minibuffer-history-sexp-flag nil
   "Non-nil when doing history operations on `command-history'.
 More generally, indicates that the history list being acted on
-contains expressions rather than strings.")
+contains expressions rather than strings.
+It is only valid if its value equals the current minibuffer depth,
+to handle recursive uses of the minibuffer.")
 (setq minibuffer-history-variable 'minibuffer-history)
 (setq minibuffer-history-position nil)
 (defvar minibuffer-history-search-history nil)
@@ -639,7 +641,6 @@
 If N is negative, find the next or Nth next match."
   (interactive
    (let* ((enable-recursive-minibuffers t)
-	  (minibuffer-history-sexp-flag nil)
 	  (regexp (read-from-minibuffer "Previous element matching (regexp): "
 					nil
 					minibuffer-local-map
@@ -666,7 +667,8 @@
 		     "No later matching history item"
 		   "No earlier matching history item")))
       (if (string-match regexp
-			(if minibuffer-history-sexp-flag
+			(if (eq minibuffer-history-sexp-flag
+				(minibuffer-depth))
 			    (let ((print-level nil))
 			      (prin1-to-string (nth (1- pos) history)))
 			  (nth (1- pos) history)))
@@ -674,7 +676,7 @@
     (setq minibuffer-history-position pos)
     (erase-buffer)
     (let ((elt (nth (1- pos) history)))
-      (insert (if minibuffer-history-sexp-flag
+      (insert (if (eq minibuffer-history-sexp-flag (minibuffer-depth))
 		  (let ((print-level nil))
 		    (prin1-to-string elt))
 		elt)))
@@ -690,7 +692,6 @@
 If N is negative, find the previous or Nth previous match."
   (interactive
    (let* ((enable-recursive-minibuffers t)
-	  (minibuffer-history-sexp-flag nil)
 	  (regexp (read-from-minibuffer "Next element matching (regexp): "
 					nil
 					minibuffer-local-map
@@ -728,7 +729,7 @@
 	      (t (setq elt (nth (1- minibuffer-history-position)
 				(symbol-value minibuffer-history-variable)))))
 	(insert
-	 (if minibuffer-history-sexp-flag
+	 (if (eq minibuffer-history-sexp-flag (minibuffer-depth))
 	     (let ((print-level nil))
 	       (prin1-to-string elt))
 	   elt))