X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Friece-display.el;fp=lisp%2Friece-display.el;h=5d20012e8309d2a63b1fbd042d8886e8112c5c38;hb=1427368d25257dfe250b57a26e157a35783a8207;hp=3cd8f72b71c646a74db10c5e83e445864dd94679;hpb=b798ff5cf201059858aa83abad40c0be40761b70;p=elisp%2Friece.git

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 3cd8f72..5d20012 100644
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -31,8 +31,6 @@
 (require 'riece-signal)
 (require 'riece-mcat)
 
-(autoload 'derived-mode-class "derived")
-
 (defvar riece-channel-buffer-format "*Channel:%s*"
   "Format of channel message buffer.")
 (defvar riece-channel-buffer-alist nil
@@ -358,8 +356,7 @@ Local to the buffer in `riece-buffer-list'.")
   (walk-windows
    (lambda (window)
      (with-current-buffer (window-buffer window)
-       (if (eq (derived-mode-class major-mode)
-	       'riece-dialogue-mode)
+       (if (riece-derived-mode-p 'riece-dialogue-mode)
 	   (setq riece-freeze-indicator
 		 (if (eq riece-freeze 'own)
 		     "f"