Commit ddba99ad authored by Miles Bader's avatar Miles Bader
Browse files

Reapply Gerd's change from 2000-09-18, which seems to have gotten lost:

(tool-bar-add-item-from-menu): Like in toolbar-add-item, if image
  doesn't have a mask add a `:mask heuristic'.
parent 0415d0d0
...@@ -11,6 +11,11 @@ ...@@ -11,6 +11,11 @@
hardwiring :family. hardwiring :family.
* hi-lock.el (hi-black-hb): Likewise. * hi-lock.el (hi-black-hb): Likewise.
Reapply Gerd's change from 2000-09-18, which seems to have gotten lost:
* toolbar/tool-bar.el (tool-bar-add-item-from-menu): Like in
toolbar-add-item, if image doesn't have a mask add a `:mask
heuristic'.
2000-09-19 Stefan Monnier <monnier@cs.yale.edu> 2000-09-19 Stefan Monnier <monnier@cs.yale.edu>
* diff-mode.el: Docstring fixes. * diff-mode.el: Docstring fixes.
......
...@@ -114,6 +114,8 @@ PROPS is a list of additional properties to add to the binding." ...@@ -114,6 +114,8 @@ PROPS is a list of additional properties to add to the binding."
key kk))))) key kk)))))
(when (and (symbolp submap) (boundp submap)) (when (and (symbolp submap) (boundp submap))
(setq submap (eval submap))) (setq submap (eval submap)))
(unless (image-mask-p image)
(setq image (append image '(:mask heuristic))))
(define-key-after tb-map (vector key) (define-key-after tb-map (vector key)
(append (cdr (assq key (cdr submap))) (list :image image) props))))) (append (cdr (assq key (cdr submap))) (list :image image) props)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment