procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(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:41 +00:00
parent 0af8c48ee0
commit 24eb74a313
2 changed files with 14 additions and 1 deletions
Show stats 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

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