diff options
| author | Richard M. Stallman | 2003-04-08 17:11:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-04-08 17:11:00 +0000 |
| commit | 4773b8ca2017459333c099838aef1635c4e32fa6 (patch) | |
| tree | 4702a062d87a89f04b644e5f57c3637dc82d712f /src/lread.c | |
| parent | cf6d23577d6fdfade2979f953745733b70c4a0bd (diff) | |
| download | emacs-4773b8ca2017459333c099838aef1635c4e32fa6.tar.gz emacs-4773b8ca2017459333c099838aef1635c4e32fa6.zip | |
(openp): Get the Qfile_exists_p handler for STRING, not FN.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index dfbbfeaad1e..e4663e0eb89 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1121,8 +1121,8 @@ openp (path, str, suffixes, storeptr, predicate) | |||
| 1121 | handler = Ffind_file_name_handler (filename, Qfile_exists_p); | 1121 | handler = Ffind_file_name_handler (filename, Qfile_exists_p); |
| 1122 | It's not clear why that was the case and it breaks things like | 1122 | It's not clear why that was the case and it breaks things like |
| 1123 | (load "/bar.el") where the file is actually "/bar.el.gz". */ | 1123 | (load "/bar.el") where the file is actually "/bar.el.gz". */ |
| 1124 | handler = Ffind_file_name_handler (filename, Qfile_exists_p); | ||
| 1125 | string = build_string (fn); | 1124 | string = build_string (fn); |
| 1125 | handler = Ffind_file_name_handler (string, Qfile_exists_p); | ||
| 1126 | if ((!NILP (handler) || !NILP (predicate)) && !NATNUMP (predicate)) | 1126 | if ((!NILP (handler) || !NILP (predicate)) && !NATNUMP (predicate)) |
| 1127 | { | 1127 | { |
| 1128 | if (NILP (predicate)) | 1128 | if (NILP (predicate)) |