procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Gerd Moellmann 2000-09-15 15:21:42 +00:00
parent b243755a13
commit fc68490910
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/toolbar/toolbar.el
View file

@ -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))))