Mercurial > emacs

changeset 79110:29f6806df351

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Qcompletion_ignore_case): New external Lisp_Object. (Fread_file_name): Use it rather than intern'ing.
author Glenn Morris <rgm@gnu.org>
date Wed, 17 Oct 2007 01:31:40 +0000
parents 78939f1449b7
children 6e167c14a85a
files src/fileio.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/fileio.c	Wed Oct 17 01:30:59 2007 +0000
+++ b/src/fileio.c	Wed Oct 17 01:31:40 2007 +0000
@@ -6078,6 +6078,7 @@
 
 /* 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 @@
     }
 
   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"),