diff options
| author | Stefan Kangas | 2019-08-27 03:36:05 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2019-09-08 00:17:25 +0200 |
| commit | 8e93e6da7cda4de82e3532cf74fc585451641398 (patch) | |
| tree | d3dfc754bf0fc73f6c0efc564f76260b908ba78c | |
| parent | 8c0ae0f93ad28d9ef419ec589170d8a670ec0932 (diff) | |
| download | emacs-8e93e6da7cda4de82e3532cf74fc585451641398.tar.gz emacs-8e93e6da7cda4de82e3532cf74fc585451641398.zip | |
Use derived-mode-p consistently in info.el
* lisp/info.el (Info-hide-note-references, info-display-manual)
(info--manual-names): Use derived-mode-p. (Bug#27583)
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el index e22466af871..02f3ea580b0 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -318,7 +318,7 @@ want to set `Info-refill-paragraphs'." | |||
| 318 | (set sym val) | 318 | (set sym val) |
| 319 | (dolist (buffer (buffer-list)) | 319 | (dolist (buffer (buffer-list)) |
| 320 | (with-current-buffer buffer | 320 | (with-current-buffer buffer |
| 321 | (when (eq major-mode 'Info-mode) | 321 | (when (derived-mode-p 'Info-mode) |
| 322 | (revert-buffer t t))))) | 322 | (revert-buffer t t))))) |
| 323 | :group 'info) | 323 | :group 'info) |
| 324 | 324 | ||
| @@ -5332,7 +5332,7 @@ completion alternatives to currently visited manuals." | |||
| 5332 | found) | 5332 | found) |
| 5333 | (dolist (buffer blist) | 5333 | (dolist (buffer blist) |
| 5334 | (with-current-buffer buffer | 5334 | (with-current-buffer buffer |
| 5335 | (when (and (eq major-mode 'Info-mode) | 5335 | (when (and (derived-mode-p 'Info-mode) |
| 5336 | (stringp Info-current-file) | 5336 | (stringp Info-current-file) |
| 5337 | (string-match manual-re Info-current-file)) | 5337 | (string-match manual-re Info-current-file)) |
| 5338 | (setq found buffer | 5338 | (setq found buffer |
| @@ -5347,7 +5347,7 @@ completion alternatives to currently visited manuals." | |||
| 5347 | (let (names) | 5347 | (let (names) |
| 5348 | (dolist (buffer (buffer-list)) | 5348 | (dolist (buffer (buffer-list)) |
| 5349 | (with-current-buffer buffer | 5349 | (with-current-buffer buffer |
| 5350 | (and (eq major-mode 'Info-mode) | 5350 | (and (derived-mode-p 'Info-mode) |
| 5351 | (stringp Info-current-file) | 5351 | (stringp Info-current-file) |
| 5352 | (not (string= (substring (buffer-name) 0 1) " ")) | 5352 | (not (string= (substring (buffer-name) 0 1) " ")) |
| 5353 | (push (file-name-sans-extension | 5353 | (push (file-name-sans-extension |