changeset 19888:45a077538366

(next-history-element): Cope if minibuffer-text-before-history is nil.
author Richard M. Stallman <rms@gnu.org>
date Fri, 12 Sep 1997 20:55:34 +0000
parents ff933683a5c5
children 3e6802bae367
files lisp/simple.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Fri Sep 12 19:53:33 1997 +0000
+++ b/lisp/simple.el	Fri Sep 12 20:55:34 1997 +0000
@@ -723,7 +723,7 @@
 	(cond ((= narg -1)
 	       (setq elt minibuffer-default))
 	      ((= narg 0)
-	       (setq elt minibuffer-text-before-history)
+	       (setq elt (or minibuffer-text-before-history ""))
 	       (setq minibuffer-text-before-history nil))
 	      (t (setq elt (nth (1- minibuffer-history-position)
 				(symbol-value minibuffer-history-variable)))))