From: Brian Fox <bfox@gnu.org>
Date: Wed, 22 Sep 1993 18:13:27 +0000 (+0000)
Subject: (read_minibuf): Don't add history item if it is
X-Git-Tag: emacs-19.34~11076
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fdf3ee28cfb24a99d3f4cc9516ee6e997137bab;p=emacs.git

(read_minibuf): Don't add history item if it is
string-equal to the most recent history item.
---

diff --git a/src/minibuf.c b/src/minibuf.c
index d9f1a35620d..0dc06a99e2a 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -254,7 +254,9 @@ read_minibuf (map, initial, prompt, backup_n, expflag, histvar, histpos)
 
   /* Add the value to the appropriate history list.  */
   if (XTYPE (Vminibuffer_history_variable) == Lisp_Symbol
-      && ! EQ (XSYMBOL (Vminibuffer_history_variable)->value, Qunbound))
+      && ! EQ (XSYMBOL (Vminibuffer_history_variable)->value, Qunbound)
+      && NILP (Fstring_equal
+	       (val, Fcar (Fsymbol_value (Vminibuffer_history_variable)))))
     Fset (Vminibuffer_history_variable,
 	  Fcons (val, Fsymbol_value (Vminibuffer_history_variable)));