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