emacs-diffs
[Top][All Lists]
Advanced

[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;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]