From 8ada529beaecb499f1518c91f66d40953fd70ed4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 20 Feb 1993 23:12:21 +0000 Subject: [PATCH] (super-apropos-check-doc-file): Look for DOC file in proper directory. --- lisp/apropos.el | 7 ++++--- 1 file 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)