From: Glenn Morris <rgm@gnu.org>
Date: Wed, 17 Oct 2007 01:30:17 +0000 (+0000)
Subject: (Qcompletion_ignore_case): New Lisp_Object.
X-Git-Tag: emacs-pretest-22.1.90~594
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b46d7a8abb481bd07370466dc77624c6142fd7c0;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 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);