diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-18 13:20:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-18 13:20:26 +0200 |
| commit | 3faba1dff6fa340033071e92309a1b112d58a7fa (patch) | |
| tree | a719655d9213c329fd87c04001ae5b8019c5c67c /lisp/apropos.el | |
| parent | 7969e41654b2b5c628c290deb938699a95e85fec (diff) | |
| download | emacs-3faba1dff6fa340033071e92309a1b112d58a7fa.tar.gz | |
Improve previous apropos-documentation-check-elc-file change
* lisp/apropos.el (apropos-documentation-check-elc-file): Add
comment to explain what's going on and expand to lisp-directory
(bug#55492).
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 428aeb15412..0b84f9fa63b 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -1055,8 +1055,11 @@ non-nil." (setq sepa (goto-char sepb))))) (defun apropos-documentation-check-elc-file (file) + ;; .elc files have the location of the file specified as #$, but for + ;; built-in files, that's a relative name (while for the rest, it's + ;; absolute). So expand the name in the former case. (unless (file-name-absolute-p file) - (setq file (locate-library file))) + (setq file (expand-file-name file lisp-directory))) (if (or (member file apropos-files-scanned) (not (file-exists-p file))) nil |