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.");