# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 969031302 0
# Node ID 77a8522f11d4cd06959db86a78575cf836a2b67f
# Parent  c1f4bdbf8465d2b76d354cfef6423d237b52147e
(toolbar-add-item): Use image-mask-p.

diff -r c1f4bdbf8465 -r 77a8522f11d4 lisp/toolbar/toolbar.el
--- a/lisp/toolbar/toolbar.el	Fri Sep 15 15:19:03 2000 +0000
+++ b/lisp/toolbar/toolbar.el	Fri Sep 15 15:21:42 2000 +0000
@@ -74,7 +74,7 @@
   (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))))