diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-03-12 23:51:22 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2022-03-12 23:51:22 -0500 |
| commit | 20d9c4b59fe8f9cc94230292ceab9d4d2b74c696 (patch) | |
| tree | e3fb2d70a4d586b26a7977a62fd00a5441ef79f9 /src/lread.c | |
| parent | e7ab69e762c10073e6c52b69ff5e83ad2c638803 (diff) | |
| download | emacs-20d9c4b59fe8f9cc94230292ceab9d4d2b74c696.tar.gz emacs-20d9c4b59fe8f9cc94230292ceab9d4d2b74c696.tar.bz2 emacs-20d9c4b59fe8f9cc94230292ceab9d4d2b74c696.zip | |
Flocate_file_internal: Protect from `.eln` remapping
Don't use `openp`s functionality to remap `.elc` files to `.eln` files
since `locate-file` is not specific to ELisp files.
This should be not just simpler but more robust than the current
hack which tries to undo the damage after the fact.
* src/lread.c (Flocate_file_internal): Don't map `.elc` to `.eln`.
* lisp/files.el (locate-file): Simplify accordingly.
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 0486a98883c..d7b56c5087e 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1661,7 +1661,7 @@ directories, make sure the PREDICATE function returns `dir-ok' for them. */) (Lisp_Object filename, Lisp_Object path, Lisp_Object suffixes, Lisp_Object predicate) { Lisp_Object file; - int fd = openp (path, filename, suffixes, &file, predicate, false, false); + int fd = openp (path, filename, suffixes, &file, predicate, false, true); if (NILP (predicate) && fd >= 0) emacs_close (fd); return file; |