(Qcompletion_ignore_case): New external Lisp_Object.

(Fread_file_name): Use it rather than intern'ing.

2 files changed, 14 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 5a4c51c84d8..08fbd81d6fb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,15 @@
+2007-10-17  Glenn Morris  <rgm@gnu.org>
+
+        * minibuf.c (Qcompletion_ignore_case): New Lisp_Object.
+        (syms_of_minibuf): Add Qcompletion_ignore_case.
+        * dired.c (Qcompletion_ignore_case): Change to external.
+        (syms_of_dired) [VMS]: Remove Qcompletion_ignore_case.
+        * fileio.c (Qcompletion_ignore_case): New external Lisp_Object.
+        (Fread_file_name): Use it rather than intern'ing.
+
+        * coding.c (Qcompletion_ignore_case): New external Lisp_Object.
+        (Fread_coding_system): Ignore case of user input.
+
 2007-10-16  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
         * xdisp.c (handle_display_prop): Ignore display specs after
diff --git a/src/fileio.c b/src/fileio.c
index ac5a4f56794..0f13c6535a0 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -6078,6 +6078,7 @@ then any auto-save counts as "recent".  */)
 
 /* Reading and completing file names */
 extern Lisp_Object Ffile_name_completion (), Ffile_name_all_completions ();
+extern Lisp_Object Qcompletion_ignore_case;
 
 /* In the string VAL, change each $ to $$ and return the result.  */
 
@@ -6383,7 +6384,7 @@ and `read-file-name-function'.  */)
     }
 
   count = SPECPDL_INDEX ();
-  specbind (intern ("completion-ignore-case"),
+  specbind (Qcompletion_ignore_case,
             read_file_name_completion_ignore_case ? Qt : Qnil);
   specbind (intern ("minibuffer-completing-file-name"), Qt);
   specbind (intern ("read-file-name-predicate"),