Mercurial > emacs
changeset 8596:ccd3c3ca2aef
(O_RDONLY): Defined.
(openp): Use it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 23 Aug 1994 22:28:49 +0000 |
| parents | 099f80df77bf |
| children | cfd5153bc220 |
| files | src/lread.c |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lread.c Tue Aug 23 21:35:23 1994 +0000 +++ b/src/lread.c Tue Aug 23 22:28:49 1994 +0000 @@ -60,6 +60,10 @@ #include <math.h> #endif /* LISP_FLOAT_TYPE */ +#ifndef O_RDONLY +#define O_RDONLY 0 +#endif + extern int errno; Lisp_Object Qread_char, Qget_file_char, Qstandard_input, Qcurrent_load_list; @@ -577,7 +581,7 @@ if (exec_only) fd = (access (fn, X_OK) == 0) ? 1 : -1; else - fd = open (fn, 0, 0); + fd = open (fn, O_RDONLY, 0); if (fd >= 0) {