Mercurial > emacs

comparison lisp/toolbar/toolbar.el @ 31691:9d8d65ca0bd4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(toolbar-like-menu-item): Like in toolbar-add-item, if image doesn't have a mask add a `:mask heuristic'.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 18 Sep 2000 12:25:36 +0000
parents fe990a5df9d3
children
comparison
equal deleted inserted replaced
31690:6abff42174ea 31691:9d8d65ca0bd4
110 (symbolp kk)) 110 (symbolp kk))
111 (setq submap m 111 (setq submap m
112 key kk))))) 112 key kk)))))
113 (when (and (symbolp submap) (boundp submap)) 113 (when (and (symbolp submap) (boundp submap))
114 (setq submap (eval submap))) 114 (setq submap (eval submap)))
115 (unless (image-mask-p image)
116 (setq image (append image '(:mask heuristic))))
115 (define-key-after tb-map (vector key) 117 (define-key-after tb-map (vector key)
116 (append (cdr (assq key (cdr submap))) (list :image image)))))) 118 (append (cdr (assq key (cdr submap))) (list :image image))))))
117 119
118 ;;; Set up some global items. Additions/deletions up for grabs. 120 ;;; Set up some global items. Additions/deletions up for grabs.
119 121