# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766263607 0
# Node ID 581a72b47b19a0f1622c3d10ba4f4c9957392d81
# Parent  5cc78dd8efc3cc5fc3e066fe9fe3bc7445dc7e7e
(super-apropos-check-doc-file): Force Fundamental mode.

diff -r 5cc78dd8efc3 -r 581a72b47b19 lisp/apropos.el
--- a/lisp/apropos.el	Wed Apr 13 18:14:44 1994 +0000
+++ b/lisp/apropos.el	Wed Apr 13 19:00:07 1994 +0000
@@ -120,9 +120,10 @@
 
 (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)