Mercurial > emacs
changeset 1681:a03b87a92614
* fileio.c (find_file_handler): Rename this to
Ffind_file_name_handler, and make it visible to lisp. Add a QUIT
to the loop which scans file-name-handler-alist. All uses
changed.
(syms_of_fileio): Mention this new function in the docstring for
Vfile_name_handler_alist. defsubr Sfind_file_name_handler.
* lisp.h (Ffind_file_name_handler): Added extern declaration.
* dired.c: All uses of find_file_handler changed here too.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sat, 12 Dec 1992 15:35:12 +0000 |
| parents | ea9f3949f153 |
| children | af0995b9b142 |
| files | src/dired.c src/lisp.h |
| diffstat | 2 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/dired.c Sat Dec 12 15:34:44 1992 +0000 +++ b/src/dired.c Sat Dec 12 15:35:12 1992 +0000 @@ -67,7 +67,7 @@ #define lstat stat #endif -extern Lisp_Object find_file_handler (); +extern Lisp_Object Ffind_file_name_handler (); Lisp_Object Vcompletion_ignored_extensions; @@ -95,7 +95,7 @@ /* If the file name has special constructs in it, call the corresponding file handler. */ - handler = find_file_handler (dirname); + handler = Ffind_file_name_handler (dirname); if (!NILP (handler)) { Lisp_Object args[6]; @@ -199,7 +199,7 @@ /* If the file name has special constructs in it, call the corresponding file handler. */ - handler = find_file_handler (dirname); + handler = Ffind_file_name_handler (dirname); if (!NILP (handler)) return call3 (handler, Qfile_name_completion, file, dirname); @@ -217,7 +217,7 @@ /* If the file name has special constructs in it, call the corresponding file handler. */ - handler = find_file_handler (dirname); + handler = Ffind_file_name_handler (dirname); if (!NILP (handler)) return call3 (handler, Qfile_name_all_completions, file, dirname); @@ -489,7 +489,7 @@ /* If the file name has special constructs in it, call the corresponding file handler. */ - handler = find_file_handler (filename); + handler = Ffind_file_name_handler (filename); if (!NILP (handler)) return call2 (handler, Qfile_attributes, filename);
--- a/src/lisp.h Sat Dec 12 15:34:44 1992 +0000 +++ b/src/lisp.h Sat Dec 12 15:35:12 1992 +0000 @@ -1070,6 +1070,7 @@ /* Defined in fileio.c */ extern Lisp_Object Qfile_error; +extern Lisp_Object Ffind_file_name_handler (); extern Lisp_Object Ffile_name_as_directory (); extern Lisp_Object Fexpand_file_name (), Ffile_name_nondirectory (); extern Lisp_Object Fsubstitute_in_file_name ();