From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 15 Sep 2000 15:21:42 +0000 (+0000)
Subject: (toolbar-add-item): Use image-mask-p.
X-Git-Tag: emacs-pretest-21.0.90~1587
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc684909103d56a06c6ea3413dd17f465d83ce9e;p=emacs.git

(toolbar-add-item): Use image-mask-p.
---

diff --git a/lisp/toolbar/toolbar.el b/lisp/toolbar/toolbar.el
index 927f38313e3..c58e617f3dc 100644
--- a/lisp/toolbar/toolbar.el
+++ b/lisp/toolbar/toolbar.el
@@ -74,7 +74,7 @@ Info node `(elisp)Image Descriptors')."
   (let ((image (find-image `((:type xbm :file ,(concat icon ".xbm"))
 			     (:type xpm :file ,(concat icon ".xpm"))))))
     (when image
-      (unless (memq 'xbm image)
+      (unless (image-mask-p image)
 	(setq image (append image '(:mask heuristict))))
       (if (memq :enable props)
 	  (let ((dis (append image '(:algorithm laplace))))