mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(Finsert_file_contents): Fix check for non-regular files.

Browse source
This commit is contained in:
Karl Heuer 1994-06-25 00:13:53 +00:00
parent ef97d5a271
commit 99bc28f43e
1 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

28
src/fileio.c
View file

@ -2593,14 +2593,14 @@ and (2) it puts less data in the undo list.")
fd = -1;
#ifndef APOLLO
if (stat (XSTRING (filename)->data, &st) < 0
|| (fd = open (XSTRING (filename)->data, 0)) < 0)
if (stat (XSTRING (filename)->data, &st) < 0)
#else
if ((fd = open (XSTRING (filename)->data, 0)) < 0
|| fstat (fd, &st) < 0)
#endif /* not APOLLO */
{
if (fd >= 0) close (fd);
badopen:
if (NILP (visit))
report_file_error ("Opening input file", Fcons (filename, Qnil));
st.st_mtime = -1;
@ -2608,22 +2608,26 @@ and (2) it puts less data in the undo list.")
goto notfound;
}
#ifdef S_IFREG
/* This code will need to be changed in order to work on named
pipes, and it's probably just not worth it. So we should at
least signal an error. */
if (!S_ISREG (st.st_mode))
Fsignal (Qfile_error,
Fcons (build_string ("not a regular file"),
Fcons (filename, Qnil)));
#endif
if (fd < 0)
if ((fd = open (XSTRING (filename)->data, 0)) < 0)
goto badopen;
/* Replacement should preserve point as it preserves markers. */
if (!NILP (replace))
record_unwind_protect (restore_point_unwind, Fpoint_marker ());
record_unwind_protect (close_file_unwind, make_number (fd));
#ifdef S_IFSOCK
/* This code will need to be changed in order to work on named
pipes, and it's probably just not worth it. So we should at
least signal an error. */
if ((st.st_mode & S_IFMT) == S_IFSOCK)
Fsignal (Qfile_error,
Fcons (build_string ("reading from named pipe"),
Fcons (filename, Qnil)));
#endif
/* Supposedly happens on VMS. */
if (st.st_size < 0)
error ("File size is negative");