From: Glenn Morris <rgm@gnu.org>
Date: Wed, 17 Oct 2007 01:30:38 +0000 (+0000)
Subject: (Qcompletion_ignore_case): New Lisp_Object.
X-Git-Tag: emacs-pretest-23.0.90~10306
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fa5c213cf7ad2429b4703c81ebdabee2aede406;p=emacs.git

(Qcompletion_ignore_case): New Lisp_Object.
(syms_of_minibuf): Add Qcompletion_ignore_case.
---

diff --git a/src/minibuf.c b/src/minibuf.c
index 489c714fcb4..e7c2aec7b3f 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -118,6 +118,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.  */
 
@@ -2831,6 +2832,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);