procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1992-07-08 19:14:35 +00:00
parent e2a2f8450c
commit be53b41100
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/fileio.c
View file

@ -2020,9 +2020,20 @@ before the error is signaled.")
record_unwind_protect (close_file_unwind, make_number (fd)); 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. */ /* Supposedly happens on VMS. */
if (st.st_size < 0) if (st.st_size < 0)
error ("File size is negative"); error ("File size is negative");
{ {
register Lisp_Object temp; register Lisp_Object temp;