[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3faba1dff6: Improve previous apropos-documentation-check-elc-file
From: |
Lars Ingebrigtsen |
Subject: |
master 3faba1dff6: Improve previous apropos-documentation-check-elc-file change |
Date: |
Wed, 18 May 2022 07:20:40 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3faba1dff6: Improve previous apropos-documentation-check-elc-file change,
Lars Ingebrigtsen <=