From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 12 Sep 1997 20:55:34 +0000 (+0000)
Subject: (next-history-element):
X-Git-Tag: emacs-20.1~60
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54c548db96cd8247cdb0561ee55701c8dc70490b;p=emacs.git

(next-history-element):
Cope if minibuffer-text-before-history is nil.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 798a706886e..6bb122646b1 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -723,7 +723,7 @@ If N is negative, find the previous or Nth previous match."
 	(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)))))