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

(O_RDONLY): Defined.

Browse source 
(openp): Use it.
This commit is contained in:
Richard M. Stallman 1994-08-23 22:28:49 +00:00
parent 8917361f1f
commit f7d279f05d
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lread.c
View file

@ -60,6 +60,10 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#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 @@ openp (path, str, suffix, storeptr, exec_only)
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)
{