aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/apropos.el5
1 files changed, 4 insertions, 1 deletions
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."
1055 (setq sepa (goto-char sepb))))) 1055 (setq sepa (goto-char sepb)))))
1056 1056
1057(defun apropos-documentation-check-elc-file (file) 1057(defun apropos-documentation-check-elc-file (file)
1058 ;; .elc files have the location of the file specified as #$, but for
1059 ;; built-in files, that's a relative name (while for the rest, it's
1060 ;; absolute). So expand the name in the former case.
1058 (unless (file-name-absolute-p file) 1061 (unless (file-name-absolute-p file)
1059 (setq file (locate-library file))) 1062 (setq file (expand-file-name file lisp-directory)))
1060 (if (or (member file apropos-files-scanned) 1063 (if (or (member file apropos-files-scanned)
1061 (not (file-exists-p file))) 1064 (not (file-exists-p file)))
1062 nil 1065 nil