Mercurial > emacs

changeset 24814:4c57b458fa9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(next-history-element): Handle minibuffer-text-before-history properly when reading sexps.
author Karl Heuer <kwzh@gnu.org>
date Fri, 04 Jun 1999 18:46:17 +0000
parents f581efbf0caf
children aea50239347a
files lisp/simple.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Fri Jun 04 18:42:20 1999 +0000
+++ b/lisp/simple.el	Fri Jun 04 18:46:17 1999 +0000
@@ -798,7 +798,7 @@
   (or (zerop n)
       (let ((narg (- minibuffer-history-position n))
 	    (minimum (if minibuffer-default -1 0))
-	    elt)
+	    elt minibuffer-returned-to-present)
 	(if (and (zerop minibuffer-history-position)
 		 (null minibuffer-text-before-history))
 	    (setq minibuffer-text-before-history (buffer-string)))
@@ -814,11 +814,13 @@
 	       (setq elt minibuffer-default))
 	      ((= narg 0)
 	       (setq elt (or minibuffer-text-before-history ""))
+	       (setq minibuffer-returned-to-present t)
 	       (setq minibuffer-text-before-history nil))
 	      (t (setq elt (nth (1- minibuffer-history-position)
 				(symbol-value minibuffer-history-variable)))))
 	(insert
-	 (if (eq minibuffer-history-sexp-flag (minibuffer-depth))
+	 (if (and (eq minibuffer-history-sexp-flag (minibuffer-depth))
+		  (not minibuffer-returned-to-present))
 	     (let ((print-level nil))
 	       (prin1-to-string elt))
 	   elt))