mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

Improve previous apropos-documentation-check-elc-file change

Browse Source 
* lisp/apropos.el (apropos-documentation-check-elc-file): Add
comment to explain what's going on and expand to lisp-directory
(bug#55492).
This commit is contained in:
Lars Ingebrigtsen 2022-05-18 13:20:26 +02:00
parent 7969e41654
commit 3faba1dff6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/apropos.el
View File

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