Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
be53b411
Commit
be53b411
authored
Jul 08, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
e2a2f845
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
0 deletions
+11
-0
src/fileio.c
src/fileio.c
+11
-0
No files found.
src/fileio.c
View file @
be53b411
...
...
@@ -2020,9 +2020,20 @@ before the error is signaled.")
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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment