Commit 94b9aaa2 authored by Glenn Morris's avatar Glenn Morris
Browse files

(Qcompletion_ignore_case): New external Lisp_Object.

(Fread_file_name): Use it rather than intern'ing.
parent ecd3f8b2
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
......
......@@ -6163,6 +6163,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. */
......@@ -6468,7 +6469,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"),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment