# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 918923784 0
# Node ID a9e60ce7973ebfdea232f556ae3e0dc62d903b2b
# Parent  24ffa91626d3cf4ce000bfcbb9a5e86c90a1acfd
(Ffile_regular_p): Use lstat.

diff -r 24ffa91626d3 -r a9e60ce7973e src/fileio.c
--- a/src/fileio.c	Sat Feb 13 16:28:34 1999 +0000
+++ b/src/fileio.c	Sat Feb 13 16:36:24 1999 +0000
@@ -3111,7 +3111,7 @@
     return (st.st_mode & S_IFMT) == S_IFREG ? Qt : Qnil;
   }
 #else
-  if (stat (XSTRING (absname)->data, &st) < 0)
+  if (lstat (XSTRING (absname)->data, &st) < 0)
     return Qnil;
   return (st.st_mode & S_IFMT) == S_IFREG ? Qt : Qnil;
 #endif