Mercurial > emacs
diff lisp/apropos.el @ 1894:73a56a618d25
(super-apropos-check-doc-file): Look for DOC file in proper directory.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 20 Feb 1993 23:12:21 +0000 |
parents | d85a2ab89e09 |
children | 2c7997f249eb |
line wrap: on
line diff
--- a/lisp/apropos.el Sat Feb 20 17:36:06 1993 +0000 +++ b/lisp/apropos.el Sat Feb 20 23:12:21 1993 +0000 @@ -127,9 +127,10 @@ ;; Returns an alist of form ((symbol fn-doc var-doc) ...). (defun super-apropos-check-doc-file (regexp) - (let ((doc-buffer (find-file-noselect internal-doc-file-name t)) - ;; (doc-buffer (or (get-file-buffer internal-doc-file-name) - ;; (find-file-noselect internal-doc-file-name))) + (let* ((doc-file (concat data-directory internal-doc-file-name)) + (doc-buffer (find-file-noselect doc-file t)) + ;; (doc-buffer (or (get-file-buffer doc-file) + ;; (find-file-noselect doc-file))) type symbol doc sym-list) (save-excursion (set-buffer doc-buffer)