diff options
| -rw-r--r-- | lisp/apropos.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 1cd37310e1c..98086c20f70 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el | |||
| @@ -120,9 +120,10 @@ Returns list of symbols and documentation found." | |||
| 120 | 120 | ||
| 121 | (defun super-apropos-check-doc-file (regexp) | 121 | (defun super-apropos-check-doc-file (regexp) |
| 122 | (let* ((doc-file (concat doc-directory internal-doc-file-name)) | 122 | (let* ((doc-file (concat doc-directory internal-doc-file-name)) |
| 123 | (doc-buffer (find-file-noselect doc-file t)) | 123 | (doc-buffer |
| 124 | ;; (doc-buffer (or (get-file-buffer doc-file) | 124 | ;; Force fundamental mode for the DOC file. |
| 125 | ;; (find-file-noselect doc-file))) | 125 | (let (auto-mode-alist) |
| 126 | (find-file-noselect doc-file t))) | ||
| 126 | type symbol doc sym-list) | 127 | type symbol doc sym-list) |
| 127 | (save-excursion | 128 | (save-excursion |
| 128 | (set-buffer doc-buffer) | 129 | (set-buffer doc-buffer) |