mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

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

Browse Source 
(tool-bar-add-item-from-menu): Like in toolbar-add-item, if image
  doesn't have a mask add a `:mask heuristic'.
This commit is contained in:
Miles Bader 2000-09-20 07:18:35 +00:00
parent 0415d0d076
commit ddba99ad14
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -11,6 +11,11 @@
hardwiring :family.
* 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>
* diff-mode.el: Docstring fixes.

2
lisp/toolbar/tool-bar.el
View File

@ -114,6 +114,8 @@ PROPS is a list of additional properties to add to the binding."
key kk)))))
(when (and (symbolp submap) (boundp submap))
(setq submap (eval submap)))
(unless (image-mask-p image)
(setq image (append image '(:mask heuristic))))
(define-key-after tb-map (vector key)
(append (cdr (assq key (cdr submap))) (list :image image) props)))))