diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-18 01:22:18 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-18 01:22:26 +0200 |
commit | 961cec0a7d0d300df4405215d0a0ece35c52b4c1 (patch) | |
tree | 268c4402ff73b0cf54d14a1d0f2ffed62786317e /lisp/apropos.el | |
parent | f99980bf6cd0a707963a7ec4c796768e43b451d2 (diff) | |
download | emacs-961cec0a7d0d300df4405215d0a0ece35c52b4c1.tar.gz |
Fix apropos-documentation with universal argument
* lisp/apropos.el (apropos-documentation-check-elc-file): Look up
.elc files in the load path (and don't bug out on deleted .elc
files) (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 99706671792..428aeb15412 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -1055,7 +1055,10 @@ non-nil." (setq sepa (goto-char sepb))))) (defun apropos-documentation-check-elc-file (file) - (if (member file apropos-files-scanned) + (unless (file-name-absolute-p file) + (setq file (locate-library file))) + (if (or (member file apropos-files-scanned) + (not (file-exists-p file))) nil (let (symbol doc beg end this-is-a-variable) (setq apropos-files-scanned (cons file apropos-files-scanned)) |