# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 710622875 0
# Node ID f7c08f6bd753a275d1e4dc0992ec0db45bb50bae
# Parent  db46eb163798f2c95d25ff0e053099ef04c22b37
*** empty log message ***

diff -r db46eb163798 -r f7c08f6bd753 src/fileio.c
--- a/src/fileio.c	Wed Jul 08 18:14:20 1992 +0000
+++ b/src/fileio.c	Wed Jul 08 19:14:35 1992 +0000
@@ -2020,9 +2020,20 @@
 
   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");
+
   {
     register Lisp_Object temp;