Mercurial > emacs
changeset 57016:eda556d106c6
(history_delete_duplicates): New variable.
(read_minibuf): Use it.
(syms_of_minibuf): Create the corresponding lisp variable.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Wed, 08 Sep 2004 20:06:13 +0000 |
| parents | 6d1f39d4f8e6 |
| children | 9f99ae07c452 |
| files | src/minibuf.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/minibuf.c Wed Sep 08 18:17:56 2004 +0000 +++ b/src/minibuf.c Wed Sep 08 20:06:13 2004 +0000 @@ -61,6 +61,10 @@ 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 @@ { Lisp_Object length; + if (history_delete_duplicates) Fdelete (histstring, histval); histval = Fcons (histstring, histval); Fset (Vminibuffer_history_variable, histval); @@ -2668,6 +2673,12 @@ 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;