# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 798894571 0
# Node ID 51bc10be0dc7f0690fa9f69b3a428ae60966bd08
# Parent  540868154dc96a8009c47d6793369536375e6921
(Ffile_regular_p): Use Qfile_regular_p.
(syms_of_fileio): Set up Qfile_regular_p.

diff -r 540868154dc9 -r 51bc10be0dc7 src/fileio.c
--- a/src/fileio.c	Wed Apr 26 10:15:03 1995 +0000
+++ b/src/fileio.c	Wed Apr 26 11:09:31 1995 +0000
@@ -224,6 +224,7 @@
 Lisp_Object Qfile_symlink_p;
 Lisp_Object Qfile_writable_p;
 Lisp_Object Qfile_directory_p;
+Lisp_Object Qfile_regular_p;
 Lisp_Object Qfile_accessible_directory_p;
 Lisp_Object Qfile_modes;
 Lisp_Object Qset_file_modes;
@@ -2528,9 +2529,9 @@
 
   /* If the file name has special constructs in it,
      call the corresponding file handler.  */
-  handler = Ffind_file_name_handler (abspath, Qfile_directory_p);
+  handler = Ffind_file_name_handler (abspath, Qfile_regular_p);
   if (!NILP (handler))
-    return call2 (handler, Qfile_directory_p, abspath);
+    return call2 (handler, Qfile_regular_p, abspath);
 
   if (stat (XSTRING (abspath)->data, &st) < 0)
     return Qnil;
@@ -4230,6 +4231,7 @@
   Qfile_symlink_p = intern ("file-symlink-p");
   Qfile_writable_p = intern ("file-writable-p");
   Qfile_directory_p = intern ("file-directory-p");
+  Qfile_regular_p = intern ("file-regular-p");
   Qfile_accessible_directory_p = intern ("file-accessible-directory-p");
   Qfile_modes = intern ("file-modes");
   Qset_file_modes = intern ("set-file-modes");
@@ -4259,6 +4261,7 @@
   staticpro (&Qfile_symlink_p);
   staticpro (&Qfile_writable_p);
   staticpro (&Qfile_directory_p);
+  staticpro (&Qfile_regular_p);
   staticpro (&Qfile_accessible_directory_p);
   staticpro (&Qfile_modes);
   staticpro (&Qset_file_modes);