I wrote:
Stef's change of 2004-03-17 to `read-file-name' to set
completion-ignore-case for case-insensitive systems is hard for users
to configure -- Viktor Haag pointed this out on the gnu.emacs.help
newsgroup.
How about having a `read-file-name-completion-ignore-case' user
variable rather than hard-coding a value according to system type?
We could still set its default value according to system type.
Does anyone object to the following patch?
If not, I shall install it.
2004-07-04 John Paul Wallington <address@hidden>
* fileio.c (read_file_name_completion_ignore_case): New variable.
(syms_of_fileio): Declare and initialise it.
(Fread_file_name): Bind `completion-ignore-case' to respect it.
Index: fileio.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/fileio.c,v
retrieving revision 1.505
diff -u -r1.505 fileio.c
--- fileio.c 22 May 2004 22:17:17 -0000 1.505
+++ fileio.c 4 Jul 2004 03:56:48 -0000
@@ -206,6 +206,9 @@
/* Current predicate used by read_file_name_internal. */
Lisp_Object Vread_file_name_predicate;
+/* Nonzero means completion ignores case when reading file name. */
+int read_file_name_completion_ignore_case;
+
/* Nonzero means, when reading a filename in the minibuffer,
start out by inserting the default directory into the minibuffer. */
int insert_default_directory;
@@ -6284,10 +6287,8 @@
}
count = SPECPDL_INDEX ();
-#if defined VMS || defined DOS_NT || defined MAC_OSX
- specbind (intern ("completion-ignore-case"), Qt);
-#endif
-
+ specbind (intern ("completion-ignore-case"),
+ read_file_name_completion_ignore_case ? Qt : Qnil);
specbind (intern ("minibuffer-completing-file-name"), Qt);
specbind (intern ("read-file-name-predicate"),
(NILP (predicate) ? Qfile_exists_p : predicate));
@@ -6523,6 +6524,14 @@
doc: /* Current predicate used by `read-file-name-internal'.
*/);
Vread_file_name_predicate = Qnil;
+ DEFVAR_BOOL ("read-file-name-completion-ignore-case",
&read_file_name_completion_ignore_case,
+ doc: /* *Non-nil means when reading a file name completion
ignores case. */);
+#if defined VMS || defined DOS_NT || defined MAC_OSX
+ read_file_name_completion_ignore_case = 1;
+#else
+ read_file_name_completion_ignore_case = 0;
+#endif
+
DEFVAR_BOOL ("insert-default-directory", &insert_default_directory,
doc: /* *Non-nil means when reading a filename start with
default dir in minibuffer.
If the initial minibuffer contents are non-empty, you can usually
_______________________________________________
Emacs-devel mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-devel