Commit 8e93e6da authored by Stefan Kangas's avatar Stefan Kangas

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)
parent 8c0ae0f9
Pipeline #3077 failed with stage
in 53 minutes and 53 seconds
...@@ -318,7 +318,7 @@ want to set `Info-refill-paragraphs'." ...@@ -318,7 +318,7 @@ want to set `Info-refill-paragraphs'."
(set sym val) (set sym val)
(dolist (buffer (buffer-list)) (dolist (buffer (buffer-list))
(with-current-buffer buffer (with-current-buffer buffer
(when (eq major-mode 'Info-mode) (when (derived-mode-p 'Info-mode)
(revert-buffer t t))))) (revert-buffer t t)))))
:group 'info) :group 'info)
...@@ -5332,7 +5332,7 @@ completion alternatives to currently visited manuals." ...@@ -5332,7 +5332,7 @@ completion alternatives to currently visited manuals."
found) found)
(dolist (buffer blist) (dolist (buffer blist)
(with-current-buffer buffer (with-current-buffer buffer
(when (and (eq major-mode 'Info-mode) (when (and (derived-mode-p 'Info-mode)
(stringp Info-current-file) (stringp Info-current-file)
(string-match manual-re Info-current-file)) (string-match manual-re Info-current-file))
(setq found buffer (setq found buffer
...@@ -5347,7 +5347,7 @@ completion alternatives to currently visited manuals." ...@@ -5347,7 +5347,7 @@ completion alternatives to currently visited manuals."
(let (names) (let (names)
(dolist (buffer (buffer-list)) (dolist (buffer (buffer-list))
(with-current-buffer buffer (with-current-buffer buffer
(and (eq major-mode 'Info-mode) (and (derived-mode-p 'Info-mode)
(stringp Info-current-file) (stringp Info-current-file)
(not (string= (substring (buffer-name) 0 1) " ")) (not (string= (substring (buffer-name) 0 1) " "))
(push (file-name-sans-extension (push (file-name-sans-extension
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment