aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2019-08-27 03:36:05 +0200
committerStefan Kangas2019-09-08 00:17:25 +0200
commit8e93e6da7cda4de82e3532cf74fc585451641398 (patch)
treed3dfc754bf0fc73f6c0efc564f76260b908ba78c
parent8c0ae0f93ad28d9ef419ec589170d8a670ec0932 (diff)
downloademacs-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.el6
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