Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 04:47:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(read_minibuf): Don't add history item if it is

Browse source 
string-equal to the most recent history item.
This commit is contained in:
Brian Fox 1993-09-22 18:13:27 +00:00
parent 03383aafcd
commit 2fdf3ee28c
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/minibuf.c
View file

@ -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)));