mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(history_delete_duplicates): New variable.

Browse Source 
(read_minibuf): Use it.
(syms_of_minibuf): Create the corresponding lisp variable.
This commit is contained in:
Juri Linkov 2004-09-08 20:06:13 +00:00
parent e79f14a42e
commit 0da4d471d9
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/minibuf.c
View File

@ -61,6 +61,10 @@ Lisp_Object Vcompletion_auto_help;
Lisp_Object Qhistory_length, Vhistory_length;
/* No duplicates in history. */
int history_delete_duplicates;
/* Fread_minibuffer leaves the input here as a string. */
Lisp_Object last_minibuf_string;
@ -749,6 +753,7 @@ read_minibuf (map, initial, prompt, backup_n, expflag,
{
Lisp_Object length;
if (history_delete_duplicates) Fdelete (histstring, histval);
histval = Fcons (histstring, histval);
Fset (Vminibuffer_history_variable, histval);
@ -2668,6 +2673,12 @@ just after a new element is inserted. Setting the history-length
property of a history variable overrides this default. */);
XSETFASTINT (Vhistory_length, 30);
DEFVAR_BOOL ("history-delete-duplicates", &history_delete_duplicates,
doc: /* *Non-nil means to delete duplicates in history.
If set to t when adding a new history element, all previous identical
elements are deleted. */);
history_delete_duplicates = 0;
DEFVAR_LISP ("completion-auto-help", &Vcompletion_auto_help,
doc: /* *Non-nil means automatically provide help for invalid completion input. */);
Vcompletion_auto_help = Qt;