diff options
| author | Michael I. Bushnell | 1994-05-20 16:17:20 +0000 |
|---|---|---|
| committer | Michael I. Bushnell | 1994-05-20 16:17:20 +0000 |
| commit | 73aa97044ac99f67a527ebee2a29822b52c70f46 (patch) | |
| tree | 0e7e4e471f4ec16b633f46ef523d7398c846273c /src/lread.c | |
| parent | 3b0aebe95a56ca1af6890e47c0333e712ecce6bb (diff) | |
| download | emacs-73aa97044ac99f67a527ebee2a29822b52c70f46.tar.gz emacs-73aa97044ac99f67a527ebee2a29822b52c70f46.zip | |
Only lusers assume that O_RDONLY == 0.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index d2b6a84304d..babeaa28682 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Lisp parsing and input streams. | 1 | /* Lisp parsing and input streams. |
| 2 | Copyright (C) 1985, 1986, 1987, 1988, 1989, | 2 | Copyright (C) 1985, 1986, 1987, 1988, 1989, |
| 3 | 1993, 1994 Free Software Foundation, Inc. | 3 | 1993, 1994 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | This file is part of GNU Emacs. | 5 | This file is part of GNU Emacs. |
| @@ -562,7 +562,7 @@ openp (path, str, suffix, storeptr, exec_only) | |||
| 562 | if (exec_only) | 562 | if (exec_only) |
| 563 | fd = (access (fn, X_OK) == 0) ? 1 : -1; | 563 | fd = (access (fn, X_OK) == 0) ? 1 : -1; |
| 564 | else | 564 | else |
| 565 | fd = open (fn, 0, 0); | 565 | fd = open (fn, O_RDONLY, 0); |
| 566 | 566 | ||
| 567 | if (fd >= 0) | 567 | if (fd >= 0) |
| 568 | { | 568 | { |