From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 13 Apr 1994 19:00:07 +0000 (+0000)
Subject: (super-apropos-check-doc-file): Force Fundamental mode.
X-Git-Tag: emacs-19.34~9000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27d684a195591a8b173cc3ed6a5d925ca69add4b;p=emacs.git

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

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)