diff options
| author | Brian Fox | 1993-09-22 18:13:27 +0000 |
|---|---|---|
| committer | Brian Fox | 1993-09-22 18:13:27 +0000 |
| commit | 2fdf3ee28cfb24a99d3f4cc9516ee6e997137bab (patch) | |
| tree | 1a1e9d278da2826bd57b83c978d6b4996afaae01 /src | |
| parent | 03383aafcd2c1d87d4225223979551f14255f5f3 (diff) | |
| download | emacs-2fdf3ee28cfb24a99d3f4cc9516ee6e997137bab.tar.gz emacs-2fdf3ee28cfb24a99d3f4cc9516ee6e997137bab.zip | |
(read_minibuf): Don't add history item if it is
string-equal to the most recent history item.
Diffstat (limited to 'src')
| -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) | |||
| 254 | 254 | ||
| 255 | /* Add the value to the appropriate history list. */ | 255 | /* Add the value to the appropriate history list. */ |
| 256 | if (XTYPE (Vminibuffer_history_variable) == Lisp_Symbol | 256 | if (XTYPE (Vminibuffer_history_variable) == Lisp_Symbol |
| 257 | && ! EQ (XSYMBOL (Vminibuffer_history_variable)->value, Qunbound)) | 257 | && ! EQ (XSYMBOL (Vminibuffer_history_variable)->value, Qunbound) |
| 258 | && NILP (Fstring_equal | ||
| 259 | (val, Fcar (Fsymbol_value (Vminibuffer_history_variable))))) | ||
| 258 | Fset (Vminibuffer_history_variable, | 260 | Fset (Vminibuffer_history_variable, |
| 259 | Fcons (val, Fsymbol_value (Vminibuffer_history_variable))); | 261 | Fcons (val, Fsymbol_value (Vminibuffer_history_variable))); |
| 260 | 262 | ||