Mercurial > emacs
changeset 11599:51bc10be0dc7
(Ffile_regular_p): Use Qfile_regular_p.
(syms_of_fileio): Set up Qfile_regular_p.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 26 Apr 1995 11:09:31 +0000 |
| parents | 540868154dc9 |
| children | 6d5385d82232 |
| files | src/fileio.c |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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);