[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/minibuf.c [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/minibuf.c [emacs-unicode-2] |
Date: |
Thu, 09 Sep 2004 06:02:29 -0400 |
Index: emacs/src/minibuf.c
diff -c emacs/src/minibuf.c:1.261.2.5 emacs/src/minibuf.c:1.261.2.6
*** emacs/src/minibuf.c:1.261.2.5 Fri Aug 27 07:00:32 2004
--- emacs/src/minibuf.c Thu Sep 9 09:36:35 2004
***************
*** 61,66 ****
--- 61,70 ----
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,754 ****
--- 753,759 ----
{
Lisp_Object length;
+ if (history_delete_duplicates) Fdelete (histstring, histval);
histval = Fcons (histstring, histval);
Fset (Vminibuffer_history_variable, histval);
***************
*** 2658,2663 ****
--- 2663,2674 ----
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/minibuf.c [emacs-unicode-2],
Miles Bader <=