X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Friece-shrink-buffer.el;fp=lisp%2Friece-shrink-buffer.el;h=38091a037dd9385caf838e481f7c57d59d0cb641;hb=1427368d25257dfe250b57a26e157a35783a8207;hp=6bc9481e8bf4eb03b23228f61cd2cdb306e44361;hpb=b798ff5cf201059858aa83abad40c0be40761b70;p=elisp%2Friece.git

diff --git a/lisp/riece-shrink-buffer.el b/lisp/riece-shrink-buffer.el
index 6bc9481..38091a0 100644
--- a/lisp/riece-shrink-buffer.el
+++ b/lisp/riece-shrink-buffer.el
@@ -62,10 +62,8 @@
     (while buffers
       (if (and (get 'riece-shrink-buffer 'riece-addon-enabled)
 	       (buffer-live-p (car buffers))
-	       (eq (derived-mode-class
-		    (with-current-buffer (car buffers)
-		      major-mode))
-		   'riece-dialogue-mode))
+	       (with-current-buffer (car buffers)
+		 (riece-derived-mode-p 'riece-dialogue-mode)))
 	  (riece-shrink-buffer (car buffers)))
       (setq buffers (cdr buffers)))))