(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)
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
(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