# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 724174512 0
# Node ID a03b87a92614e3c9f7a498ebdb12dedb269740c5
# Parent  ea9f3949f15345b2e5da1d4b04d2dfaf34d36ae5
	* 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.

diff -r ea9f3949f153 -r a03b87a92614 src/dired.c
--- 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);
 
diff -r ea9f3949f153 -r a03b87a92614 src/lisp.h
--- 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 ();