(super-apropos-check-doc-file): Force Fundamental mode.

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."
 
 (defun super-apropos-check-doc-file (regexp)
   (let* ((doc-file (concat doc-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)))
+         (doc-buffer
+          ;; Force fundamental mode for the DOC file.
+          (let (auto-mode-alist)
+            (find-file-noselect doc-file t)))
         type symbol doc sym-list)
     (save-excursion
       (set-buffer doc-buffer)