# HG changeset patch # User Michael I. Bushnell <mib@gnu.org> # Date 769450640 0 # Node ID b6993af7a905cbf20a5f05b51b39d2e4b516e0dd # Parent 4a0b3a63e51ec3ad648342a108cbd09326e1f099 Only lusers assume that O_RDONLY == 0. diff -r 4a0b3a63e51e -r b6993af7a905 src/lread.c --- a/src/lread.c Fri May 20 08:46:20 1994 +0000 +++ b/src/lread.c Fri May 20 16:17:20 1994 +0000 @@ -1,5 +1,5 @@ /* Lisp parsing and input streams. - Copyright (C) 1985, 1986, 1987, 1988, 1989, + Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -562,7 +562,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) {