/[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.240.2.10 by miles, Sat Sep 4 09:22:58 2004 UTC revision 1.240.2.11 by miles, Thu Sep 16 00:12:25 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 2668  just after a new element is inserted.  S Line 2673  just after a new element is inserted.  S
2673  property of a history variable overrides this default.  */);  property of a history variable overrides this default.  */);
2674    XSETFASTINT (Vhistory_length, 30);    XSETFASTINT (Vhistory_length, 30);
2675    
2676      DEFVAR_BOOL ("history-delete-duplicates", &history_delete_duplicates,
2677                   doc: /* *Non-nil means to delete duplicates in history.
2678    If set to t when adding a new history element, all previous identical
2679    elements are deleted.  */);
2680      history_delete_duplicates = 0;
2681    
2682    DEFVAR_LISP ("completion-auto-help", &Vcompletion_auto_help,    DEFVAR_LISP ("completion-auto-help", &Vcompletion_auto_help,
2683                 doc: /* *Non-nil means automatically provide help for invalid completion input.  */);                 doc: /* *Non-nil means automatically provide help for invalid completion input.  */);
2684    Vcompletion_auto_help = Qt;    Vcompletion_auto_help = Qt;

Legend:
Removed from v.1.240.2.10  
changed lines
  Added in v.1.240.2.11

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