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

(read_file_name_completion_ignore_case): New variable.

Browse source 
(syms_of_fileio): Declare and initialise it.
(Fread_file_name): Bind `completion-ignore-case' to respect it.
This commit is contained in:
John Paul Wallington 2004-07-04 21:08:56 +00:00
parent 59db7d6e7f
commit 316ef0dcf1
2 changed files with 19 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/ChangeLog
View file

@ -1,3 +1,9 @@
2004-07-04 John Paul Wallington <jpw@gnu.org>
* 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.
2004-07-03 Eli Zaretskii <eliz@gnu.org> 2004-07-03 Eli Zaretskii <eliz@gnu.org>
* msdos.c (dos_rawgetc): Use make_number to produce Lisp objects * msdos.c (dos_rawgetc): Use make_number to produce Lisp objects

17
src/fileio.c
View file

@ -206,6 +206,9 @@ Lisp_Object Vread_file_name_function;
/* Current predicate used by read_file_name_internal. */ /* Current predicate used by read_file_name_internal. */
Lisp_Object Vread_file_name_predicate; 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, /* Nonzero means, when reading a filename in the minibuffer,
start out by inserting the default directory into the minibuffer. */ start out by inserting the default directory into the minibuffer. */
int insert_default_directory; int insert_default_directory;
@ -6284,10 +6287,8 @@ provides a file dialog box. */)
} }
count = SPECPDL_INDEX (); count = SPECPDL_INDEX ();
#if defined VMS || defined DOS_NT || defined MAC_OSX specbind (intern ("completion-ignore-case"),
specbind (intern ("completion-ignore-case"), Qt); read_file_name_completion_ignore_case ? Qt : Qnil);
#endif
specbind (intern ("minibuffer-completing-file-name"), Qt); specbind (intern ("minibuffer-completing-file-name"), Qt);
specbind (intern ("read-file-name-predicate"), specbind (intern ("read-file-name-predicate"),
(NILP (predicate) ? Qfile_exists_p : predicate)); (NILP (predicate) ? Qfile_exists_p : predicate));
@ -6523,6 +6524,14 @@ same format as a regular save would use. */);
doc: /* Current predicate used by `read-file-name-internal'. */); doc: /* Current predicate used by `read-file-name-internal'. */);
Vread_file_name_predicate = Qnil; 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_OS
read_file_name_completion_ignore_case = 1;
#else
read_file_name_completion_ignore_case = 0;
#endif
DEFVAR_BOOL ("insert-default-directory", &insert_default_directory, DEFVAR_BOOL ("insert-default-directory", &insert_default_directory,
doc: /* *Non-nil means when reading a filename start with default dir in minibuffer. 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 If the initial minibuffer contents are non-empty, you can usually