diff options
| author | Brian Fox <bfox@gnu.org> | 1993-09-22 18:13:27 +0000 |
|---|---|---|
| committer | Brian Fox <bfox@gnu.org> | 1993-09-22 18:13:27 +0000 |
| commit | 2fdf3ee28cfb24a99d3f4cc9516ee6e997137bab (patch) | |
| tree | 1a1e9d278da2826bd57b83c978d6b4996afaae01 | |
| parent | 03383aafcd2c1d87d4225223979551f14255f5f3 (diff) | |
| download | emacs-2fdf3ee28cfb24a99d3f4cc9516ee6e997137bab.tar.gz | |
(read_minibuf): Don't add history item if it is
string-equal to the most recent history item.
| -rw-r--r-- | src/minibuf.c | 4 |
1 files changed, 3 insertions, 1 deletions
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))); |