From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 19 May 1998 03:41:25 +0000 (+0000)
Subject: (read_minibuf): If history list var is void, make it nil.
X-Git-Tag: emacs-20.3~940
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6d6572475603083762cb0155ae966de7710bb9c;p=emacs.git

(read_minibuf): If history list var is void, make it nil.
---

diff --git a/src/minibuf.c b/src/minibuf.c
index bc86a912dd4..8006cc9354d 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -425,12 +425,16 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
 
   /* Add the value to the appropriate history list unless it is empty.  */
   if (XSTRING (val)->size != 0
-      && SYMBOLP (Vminibuffer_history_variable)
-      && ! EQ (XSYMBOL (Vminibuffer_history_variable)->value, Qunbound))
+      && SYMBOLP (Vminibuffer_history_variable))
     {
       /* If the caller wanted to save the value read on a history list,
 	 then do so if the value is not already the front of the list.  */
       Lisp_Object histval;
+
+      /* If variable is unbound, make it nil.  */
+      if (EQ (XSYMBOL (Vminibuffer_history_variable)->value, Qunbound))
+	Fset (Vminibuffer_history_variable, Qnil);
+
       histval = Fsymbol_value (Vminibuffer_history_variable);
 
       /* The value of the history variable must be a cons or nil.  Other