Commit 8ada529b authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent e41ae81f
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment