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

diff --git a/lisp/toolbar/toolbar.el b/lisp/toolbar/toolbar.el
index 927f38313e33321b6d48924e1d32760092b2b0c9..c58e617f3dc08e2976ec309f0417debd8c8ff63b 100644 (file)
--- 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))))