diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-02-20 23:12:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-02-20 23:12:21 +0000 |
| commit | 33cd8cea66c7bc20e0d366b40fae67489c5647a6 (patch) | |
| tree | cf6d6e1bd2d0bd77fa108349e23478ea979d6a9b /lisp/apropos.el | |
| parent | 483454c30ec819062c9333961e4570c45d438ce4 (diff) | |
| download | emacs-33cd8cea66c7bc20e0d366b40fae67489c5647a6.tar.gz | |
(super-apropos-check-doc-file): Look for DOC file in proper directory.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 0e89fa585d6..864ac1db864 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -127,9 +127,10 @@ Returns list of symbols and documentation found." ;; 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) |