mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 10:44:12 -08:00
Code Issues Projects Releases Wiki Activity

(Qcompletion_ignore_case): New external Lisp_Object.

Browse source 
(Fread_file_name): Use it rather than intern'ing.
This commit is contained in:
Glenn Morris 2007-10-17 01:32:19 +00:00
parent ecd3f8b27a
commit 94b9aaa27d
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/ChangeLog
View file

@ -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

3
src/fileio.c
View file

@ -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"),