# HG changeset patch
# User Brian Fox <bfox@gnu.org>
# Date 748721607 0
# Node ID 69eba6f6d5fb877ef0266edee1921e69a1199b13
# Parent  8e36034f65e251ad130ae04ee203f626b32f45d1
(read_minibuf): Don't add history item if it is
string-equal to the most recent history item.

diff -r 8e36034f65e2 -r 69eba6f6d5fb src/minibuf.c
--- a/src/minibuf.c	Wed Sep 22 18:12:09 1993 +0000
+++ b/src/minibuf.c	Wed Sep 22 18:13:27 1993 +0000
@@ -254,7 +254,9 @@
 
   /* 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)));