From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 23 Aug 1994 22:28:49 +0000 (+0000)
Subject: (O_RDONLY): Defined.
X-Git-Tag: emacs-19.34~7257
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7d279f05dea5b655a35c93ff863af300b79cd58;p=emacs.git

(O_RDONLY): Defined.
(openp): Use it.
---

diff --git a/src/lread.c b/src/lread.c
index f720c76c458..e703337edc7 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -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)
 		{