1 |
|
2002-05-28 Kim F. Storm <storm@cua.dk> |
2 |
|
|
3 |
|
* fileio.c: (Vread_file_name_function, Vread_file_name_predicate): |
4 |
|
New variables. |
5 |
|
(syms_of_fileio): DEFVAR_LISP them. |
6 |
|
(read_file_name_cleanup): New unwind function. |
7 |
|
(Fread_file_name_internal): Only return completions satifying |
8 |
|
Vread_file_name_predicate. Temporarily unwind protect and rebind |
9 |
|
default-directory while checking completions against the predicate. |
10 |
|
(Fread_file_name): Added PREDICATE argument. Specbind it to |
11 |
|
Vread_file_name_predicate during completion. |
12 |
|
Call Vread_file_name_function to read the file name if non-nil. |
13 |
|
|
14 |
|
* lisp.h (Fread_file_name): Now has 6 args. |
15 |
|
|
16 |
|
* callint.c (Fcall_interactively) <"D">: Supply Qfile_directory_p |
17 |
|
predicate for Fread_file_name when reading directory name. |
18 |
|
Supply Qnil for predicate in other calls to Fread_file_name. |
19 |
|
|
20 |
2002-05-26 Miles Bader <miles@gnu.org> |
2002-05-26 Miles Bader <miles@gnu.org> |
21 |
|
|
22 |
* term.c (tty_capable_p): New function. |
* term.c (tty_capable_p): New function. |