Mercurial > emacs
changeset 31105:0c34d4d76e65
(Vcompletion_auto_help): Renamed from `auto_help'.
(do_completion, Fminibuffer_complete_word): Use it.
(syms_of_minibuf): Turn completion-auto-help into a proper Lisp
var so it can take non-boolean values.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 22 Aug 2000 22:49:22 +0000 |
| parents | 79c890cce460 |
| children | ad1ae9eb641a |
| files | src/minibuf.c |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/minibuf.c Tue Aug 22 22:44:39 2000 +0000 +++ b/src/minibuf.c Tue Aug 22 22:49:22 2000 +0000 @@ -54,7 +54,7 @@ /* Nonzero means display completion help for invalid input. */ -int auto_help; +Lisp_Object Vcompletion_auto_help; /* The maximum length of a minibuffer history. */ @@ -1637,7 +1637,7 @@ UNGCPRO; if (completedp) return 5; - else if (auto_help) + else if (!NILP (Vcompletion_auto_help)) Fminibuffer_completion_help (); else temp_echo_area_glyphs (" [Next char not unique]"); @@ -1974,7 +1974,7 @@ if (i == ZV - prompt_end_charpos) { - if (auto_help) + if (!NILP (Vcompletion_auto_help)) Fminibuffer_completion_help (); return Qnil; } @@ -2358,9 +2358,9 @@ property of a history variable overrides this default."); XSETFASTINT (Vhistory_length, 30); - DEFVAR_BOOL ("completion-auto-help", &auto_help, + DEFVAR_LISP ("completion-auto-help", &Vcompletion_auto_help, "*Non-nil means automatically provide help for invalid completion input."); - auto_help = 1; + Vcompletion_auto_help = Qt; DEFVAR_BOOL ("completion-ignore-case", &completion_ignore_case, "Non-nil means don't consider case significant in completion.");