From 27d684a195591a8b173cc3ed6a5d925ca69add4b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 13 Apr 1994 19:00:07 +0000 Subject: [PATCH] (super-apropos-check-doc-file): Force Fundamental mode. --- lisp/apropos.el | 7 ++++--- 1 file 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) -- 2.39.5