From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 17 May 2022 23:22:18 +0000 (+0200)
Subject: Fix apropos-documentation with universal argument
X-Git-Tag: emacs-29.0.90~1910^2~612
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=961cec0a7d0d300df4405215d0a0ece35c52b4c1;p=emacs.git

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).
---

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))