From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 18 May 2022 11:20:26 +0000 (+0200)
Subject: Improve previous apropos-documentation-check-elc-file change
X-Git-Tag: emacs-29.0.90~1910^2~603
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3faba1dff6fa340033071e92309a1b112d58a7fa;p=emacs.git

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

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