diff options
| author | Gerd Moellmann | 2000-09-15 21:00:32 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-09-15 21:00:32 +0000 |
| commit | 2b26ac776d715d99a2215dfe5df4009b18076a4a (patch) | |
| tree | 5b5565a77bb77e5d0e9018332102461dd5e77990 | |
| parent | 467d1aaa0ef598a7570ca8ffe9e298099a41268a (diff) | |
| download | emacs-2b26ac776d715d99a2215dfe5df4009b18076a4a.tar.gz emacs-2b26ac776d715d99a2215dfe5df4009b18076a4a.zip | |
(toolbar-add-item): Use the same image
specification if or if not tool-bar item contains an `:enabled'
property.
| -rw-r--r-- | lisp/toolbar/toolbar.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/toolbar/toolbar.el b/lisp/toolbar/toolbar.el index c58e617f3dc..bdd0d8a4385 100644 --- a/lisp/toolbar/toolbar.el +++ b/lisp/toolbar/toolbar.el | |||
| @@ -75,10 +75,7 @@ Info node `(elisp)Image Descriptors')." | |||
| 75 | (:type xpm :file ,(concat icon ".xpm")))))) | 75 | (:type xpm :file ,(concat icon ".xpm")))))) |
| 76 | (when image | 76 | (when image |
| 77 | (unless (image-mask-p image) | 77 | (unless (image-mask-p image) |
| 78 | (setq image (append image '(:mask heuristict)))) | 78 | (setq image (append image '(:mask heuristic)))) |
| 79 | (if (memq :enable props) | ||
| 80 | (let ((dis (append image '(:algorithm laplace)))) | ||
| 81 | (setq image (vector image image dis dis)))) | ||
| 82 | (define-key-after (or map toolbar-global-map) (vector key) | 79 | (define-key-after (or map toolbar-global-map) (vector key) |
| 83 | `(menu-item ,(symbol-name key) ,def :image ,image ,@props))))) | 80 | `(menu-item ,(symbol-name key) ,def :image ,image ,@props))))) |
| 84 | 81 | ||