From 739cc391758f1779ef4337726d49e1025e82b026 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 22 Aug 2000 22:49:22 +0000 Subject: (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. --- src/minibuf.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/minibuf.c') diff --git a/src/minibuf.c b/src/minibuf.c index 464dc37093..19c06105fb 100644 --- a/src/minibuf.c +++ b/src/minibuf.c @@ -54,7 +54,7 @@ int minibuf_level; /* 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 @@ do_completion () 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 @@ Return nil if there is no valid completion, else t.") if (i == ZV - prompt_end_charpos) { - if (auto_help) + if (!NILP (Vcompletion_auto_help)) Fminibuffer_completion_help (); return Qnil; } @@ -2358,9 +2358,9 @@ just after a new element is inserted. Setting the history-length\n\ 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."); -- cgit v1.2.3