martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman
1993-02-20 23:12:21 +00:00
parent e41ae81fbf
commit 8ada529bea
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/apropos.el
View File

@@ -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)