/[emacs]/emacs/src/minibuf.c
ViewVC logotype

Diff of /emacs/src/minibuf.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.261.2.5 by miles, Fri Aug 27 07:00:32 2004 UTC revision 1.261.2.6 by miles, Thu Sep 9 09:36:35 2004 UTC
# Line 61  Lisp_Object Vcompletion_auto_help; Line 61  Lisp_Object Vcompletion_auto_help;
61    
62  Lisp_Object Qhistory_length, Vhistory_length;  Lisp_Object Qhistory_length, Vhistory_length;
63    
64    /* No duplicates in history.  */
65    
66    int history_delete_duplicates;
67    
68  /* Fread_minibuffer leaves the input here as a string. */  /* Fread_minibuffer leaves the input here as a string. */
69    
70  Lisp_Object last_minibuf_string;  Lisp_Object last_minibuf_string;
# Line 749  read_minibuf (map, initial, prompt, back Line 753  read_minibuf (map, initial, prompt, back
753          {          {
754            Lisp_Object length;            Lisp_Object length;
755    
756              if (history_delete_duplicates) Fdelete (histstring, histval);
757            histval = Fcons (histstring, histval);            histval = Fcons (histstring, histval);
758            Fset (Vminibuffer_history_variable, histval);            Fset (Vminibuffer_history_variable, histval);
759    
# Line 2658  just after a new element is inserted.  S Line 2663  just after a new element is inserted.  S
2663  property of a history variable overrides this default.  */);  property of a history variable overrides this default.  */);
2664    XSETFASTINT (Vhistory_length, 30);    XSETFASTINT (Vhistory_length, 30);
2665    
2666      DEFVAR_BOOL ("history-delete-duplicates", &history_delete_duplicates,
2667                   doc: /* *Non-nil means to delete duplicates in history.
2668    If set to t when adding a new history element, all previous identical
2669    elements are deleted.  */);
2670      history_delete_duplicates = 0;
2671    
2672    DEFVAR_LISP ("completion-auto-help", &Vcompletion_auto_help,    DEFVAR_LISP ("completion-auto-help", &Vcompletion_auto_help,
2673                 doc: /* *Non-nil means automatically provide help for invalid completion input.  */);                 doc: /* *Non-nil means automatically provide help for invalid completion input.  */);
2674    Vcompletion_auto_help = Qt;    Vcompletion_auto_help = Qt;

Legend:
Removed from v.1.261.2.5  
changed lines
  Added in v.1.261.2.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26