diff options
| author | Gerd Moellmann | 2000-09-15 15:21:42 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-09-15 15:21:42 +0000 |
| commit | fc684909103d56a06c6ea3413dd17f465d83ce9e (patch) | |
| tree | b21a5d2900bae18478e478ed2b45e51a03ec7c71 | |
| parent | b243755a133a4941cd01e722b85797d2d2da2b7f (diff) | |
| download | emacs-fc684909103d56a06c6ea3413dd17f465d83ce9e.tar.gz emacs-fc684909103d56a06c6ea3413dd17f465d83ce9e.zip | |
(toolbar-add-item): Use image-mask-p.
| -rw-r--r-- | lisp/toolbar/toolbar.el | 2 |
1 files changed, 1 insertions, 1 deletions
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')." | |||
| 74 | (let ((image (find-image `((:type xbm :file ,(concat icon ".xbm")) | 74 | (let ((image (find-image `((:type xbm :file ,(concat icon ".xbm")) |
| 75 | (:type xpm :file ,(concat icon ".xpm")))))) | 75 | (:type xpm :file ,(concat icon ".xpm")))))) |
| 76 | (when image | 76 | (when image |
| 77 | (unless (memq 'xbm image) | 77 | (unless (image-mask-p image) |
| 78 | (setq image (append image '(:mask heuristict)))) | 78 | (setq image (append image '(:mask heuristict)))) |
| 79 | (if (memq :enable props) | 79 | (if (memq :enable props) |
| 80 | (let ((dis (append image '(:algorithm laplace)))) | 80 | (let ((dis (append image '(:algorithm laplace)))) |