# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 730249941 0
# Node ID 73a56a618d253fae3f05df339c51491ef76d2c3b
# Parent  b047e77f3be49f775054aef1305bca094bbcac17
(super-apropos-check-doc-file): Look for DOC file in proper directory.

diff -r b047e77f3be4 -r 73a56a618d25 lisp/apropos.el
--- 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)