(Qcompletion_ignore_case): New Lisp_Object.

(syms_of_minibuf): Add Qcompletion_ignore_case.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/minibuf.c b/src/minibuf.c
index 0a1d737a793..bd07e2cdd36 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -117,6 +117,7 @@ Lisp_Object Vread_buffer_function;
 /* Nonzero means completion ignores case.  */
 
 int completion_ignore_case;
+Lisp_Object Qcompletion_ignore_case;
 
 /* List of regexps that should restrict possible completions.  */
 
@@ -2802,6 +2803,9 @@ syms_of_minibuf ()
   minibuf_save_list = Qnil;
   staticpro (&minibuf_save_list);
 
+  Qcompletion_ignore_case = intern ("completion-ignore-case");
+  staticpro (&Qcompletion_ignore_case);
+
   Qread_file_name_internal = intern ("read-file-name-internal");
   staticpro (&Qread_file_name_internal);