From 2fdf3ee28cfb24a99d3f4cc9516ee6e997137bab Mon Sep 17 00:00:00 2001 From: Brian Fox Date: Wed, 22 Sep 1993 18:13:27 +0000 Subject: [PATCH] (read_minibuf): Don't add history item if it is string-equal to the most recent history item. --- src/minibuf.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))); -- 2.39.5