Mercurial > emacs
comparison lisp/apropos.el @ 6853:581a72b47b19
(super-apropos-check-doc-file): Force Fundamental mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 13 Apr 1994 19:00:07 +0000 |
| parents | 7e1e1ccc238c |
| children | cc7cd83ccf3f |
comparison
equal
deleted
inserted
replaced
| 6852:5cc78dd8efc3 | 6853:581a72b47b19 |
|---|---|
| 118 ;; Finds all documentation related to REGEXP in internal-doc-file-name. | 118 ;; Finds all documentation related to REGEXP in internal-doc-file-name. |
| 119 ;; Returns an alist of form ((symbol fn-doc var-doc) ...). | 119 ;; Returns an alist of form ((symbol fn-doc var-doc) ...). |
| 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) |
| 129 ;; a user said he might accidentally edit the doc file | 130 ;; a user said he might accidentally edit the doc file |
| 130 (setq buffer-read-only t) | 131 (setq buffer-read-only t) |