206 |
/* Current predicate used by read_file_name_internal. */ |
/* Current predicate used by read_file_name_internal. */ |
207 |
Lisp_Object Vread_file_name_predicate; |
Lisp_Object Vread_file_name_predicate; |
208 |
|
|
209 |
|
/* Nonzero means completion ignores case when reading file name. */ |
210 |
|
int read_file_name_completion_ignore_case; |
211 |
|
|
212 |
/* Nonzero means, when reading a filename in the minibuffer, |
/* Nonzero means, when reading a filename in the minibuffer, |
213 |
start out by inserting the default directory into the minibuffer. */ |
start out by inserting the default directory into the minibuffer. */ |
214 |
int insert_default_directory; |
int insert_default_directory; |
6287 |
} |
} |
6288 |
|
|
6289 |
count = SPECPDL_INDEX (); |
count = SPECPDL_INDEX (); |
6290 |
#if defined VMS || defined DOS_NT || defined MAC_OSX |
specbind (intern ("completion-ignore-case"), |
6291 |
specbind (intern ("completion-ignore-case"), Qt); |
read_file_name_completion_ignore_case ? Qt : Qnil); |
|
#endif |
|
|
|
|
6292 |
specbind (intern ("minibuffer-completing-file-name"), Qt); |
specbind (intern ("minibuffer-completing-file-name"), Qt); |
6293 |
specbind (intern ("read-file-name-predicate"), |
specbind (intern ("read-file-name-predicate"), |
6294 |
(NILP (predicate) ? Qfile_exists_p : predicate)); |
(NILP (predicate) ? Qfile_exists_p : predicate)); |
6524 |
doc: /* Current predicate used by `read-file-name-internal'. */); |
doc: /* Current predicate used by `read-file-name-internal'. */); |
6525 |
Vread_file_name_predicate = Qnil; |
Vread_file_name_predicate = Qnil; |
6526 |
|
|
6527 |
|
DEFVAR_BOOL ("read-file-name-completion-ignore-case", &read_file_name_completion_ignore_case, |
6528 |
|
doc: /* *Non-nil means when reading a file name completion ignores case. */); |
6529 |
|
#if defined VMS || defined DOS_NT || defined MAC_OS |
6530 |
|
read_file_name_completion_ignore_case = 1; |
6531 |
|
#else |
6532 |
|
read_file_name_completion_ignore_case = 0; |
6533 |
|
#endif |
6534 |
|
|
6535 |
DEFVAR_BOOL ("insert-default-directory", &insert_default_directory, |
DEFVAR_BOOL ("insert-default-directory", &insert_default_directory, |
6536 |
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. |
6537 |
If the initial minibuffer contents are non-empty, you can usually |
If the initial minibuffer contents are non-empty, you can usually |