diff options
| -rw-r--r-- | lisp/apropos.el | 5 |
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 |