X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Friece.git;a=blobdiff_plain;f=lisp%2Friece-button.el;h=fd6f24e8b59fbca445062e2b344c507d54651459;hp=27e4a73e272fd717adb1adedc2af09d34bfdb1f4;hb=1427368d25257dfe250b57a26e157a35783a8207;hpb=b798ff5cf201059858aa83abad40c0be40761b70

diff --git a/lisp/riece-button.el b/lisp/riece-button.el
index 27e4a73..fd6f24e 100644
--- a/lisp/riece-button.el
+++ b/lisp/riece-button.el
@@ -256,8 +256,7 @@ This function is used as a callback for a channel button."
     (let ((buffers riece-buffer-list))
       (while buffers
 	(set-buffer (car buffers))
-	(if (eq (derived-mode-class major-mode)
-		'riece-dialogue-mode)
+	(if (riece-derived-mode-p 'riece-dialogue-mode)
 	    (riece-button-dialogue-mode-hook))
 	(setq buffers (cdr buffers)))))
   (add-hook 'riece-channel-list-mode-hook
@@ -292,8 +291,7 @@ This function is used as a callback for a channel button."
   (let ((pointer riece-buffer-list))
     (while pointer
       (with-current-buffer (car pointer)
-	(if (eq (derived-mode-class major-mode)
-		'riece-dialogue-mode)
+	(if (riece-derived-mode-p 'riece-dialogue-mode)
 	    (riece-button-update-buffer)))
       (setq pointer (cdr pointer)))
     (if riece-current-channel