# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 874097734 0
# Node ID 45a077538366d82797ddaa001a1343cf38154c22
# Parent  ff933683a5c51917ad36d810b6a06f6368e651f8
(next-history-element):
Cope if minibuffer-text-before-history is nil.

diff -r ff933683a5c5 -r 45a077538366 lisp/simple.el
--- 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)))))