(super-apropos-check-doc-file): Look for DOC file in proper directory.

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)