master 3faba1dff6: Improve previous apropos-documentation-check-elc-file change

[Lars Ingebrigtsen]

branch: master
commit 3faba1dff6fa340033071e92309a1b112d58a7fa
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/apropos.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 428aeb1541..0b84f9fa63 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