Commit 0da4d471 authored by Juri Linkov's avatar Juri Linkov
Browse files

(history_delete_duplicates): New variable.

(read_minibuf): Use it.
(syms_of_minibuf): Create the corresponding lisp variable.
parent e79f14a4
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment