From 8e93e6da7cda4de82e3532cf74fc585451641398 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 27 Aug 2019 03:36:05 +0200 Subject: [PATCH] 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) --- lisp/info.el | 6 +++--- 1 file 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'." (set sym val) (dolist (buffer (buffer-list)) (with-current-buffer buffer - (when (eq major-mode 'Info-mode) + (when (derived-mode-p 'Info-mode) (revert-buffer t t))))) :group 'info) @@ -5332,7 +5332,7 @@ completion alternatives to currently visited manuals." found) (dolist (buffer blist) (with-current-buffer buffer - (when (and (eq major-mode 'Info-mode) + (when (and (derived-mode-p 'Info-mode) (stringp Info-current-file) (string-match manual-re Info-current-file)) (setq found buffer @@ -5347,7 +5347,7 @@ completion alternatives to currently visited manuals." (let (names) (dolist (buffer (buffer-list)) (with-current-buffer buffer - (and (eq major-mode 'Info-mode) + (and (derived-mode-p 'Info-mode) (stringp Info-current-file) (not (string= (substring (buffer-name) 0 1) " ")) (push (file-name-sans-extension -- 2.39.5