From: Glenn Morris Date: Wed, 17 Oct 2007 01:32:41 +0000 (+0000) Subject: (Qcompletion_ignore_case): New external Lisp_Object. X-Git-Tag: emacs-pretest-22.1.90~592 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=24eb74a313c5d6fade2cc96a33b2bf685dd95130;p=emacs.git (Qcompletion_ignore_case): New external Lisp_Object. (Fread_file_name): Use it rather than intern'ing. --- 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 + + * 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 * 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"),