Commit 997bf68d authored by Jim Blandy's avatar Jim Blandy
Browse files

* 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.
parent 4a88b3b0
......@@ -67,7 +67,7 @@ extern struct direct *readdir ();
#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 NOSORT is non-nil, the list is not sorted--its order is unpredictable.\n\
/* 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 @@ Returns nil if DIR contains no name starting with FILE.")
/* 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 @@ These are all file names in directory DIR which begin with FILE.")
/* 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 file does not exist, returns nil.")
/* 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);
......
......@@ -1070,6 +1070,7 @@ extern Lisp_Object Fcopy_marker ();
/* 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 ();
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment