mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(tool-bar-add-item-from-menu): Use

Browse Source 
face-attribute instead of face-foreground and face-background.
(tool-bar-add-item): Likewise, and handle unspecified colors.
This commit is contained in:
Gerd Moellmann 2000-11-29 19:21:47 +00:00
parent e3fa42c299
commit 3fae165ccb
1 changed files with 18 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -89,24 +89,22 @@ function will try to use first ICON.xpm, ICON.pbm then ICON.xbm using
Keybindings are made in the map `tool-bar-map'. To define items in
some local map, bind `tool-bar-map' with `let' around calls of this
function."
(let* ((fg (face-foreground 'tool-bar))
(bg (face-background 'tool-bar))
(let* ((fg (face-attribute 'tool-bar :foreground))
(bg (face-attribute 'tool-bar :background))
(colors (nconc (if (eq fg 'unspecified) nil (list :foreground fg))
(if (eq bg 'unspecified) nil (list :background bg))))
(image (find-image
(if (display-color-p)
`((:type xpm :file ,(concat icon ".xpm"))
(:type pbm :file ,(concat icon ".pbm")
:background ,bg
:foreground ,fg)
(:type xbm :file ,(concat icon ".xbm")
:background ,bg
:foreground ,fg))
`((:type pbm :file ,(concat icon ".pbm")
:background ,bg
:foreground ,fg)
(:type xbm :file ,(concat icon ".xbm")
:background ,bg
:foreground ,fg)
(:type xpm :file ,(concat icon ".xpm")))))))
(list (list :type 'xpm :file (concat icon ".xpm"))
(append (list :type 'pbm :file (concat icon ".pbm"))
colors)
(append (list :type 'xbm :file (concat icon ".xbm"))
colors))
(list (append (list :type 'pbm :file (concat icon ".pbm"))
colors)
(append (list :type 'xbm :file (concat icon ".xbm"))
colors)
(list :type 'xpm :file (concat icon ".xpm")))))))
(when image
(unless (image-mask-p image)
(setq image (append image '(:mask heuristic))))
@ -129,13 +127,10 @@ function."
(setq map global-map))
(let* ((menu-bar-map (lookup-key map [menu-bar]))
(keys (where-is-internal command menu-bar-map))
(fg (if (eq (face-foreground 'tool-bar) 'unspecified)
nil
(list :foreground (face-foreground 'tool-bar))))
(bg (if (eq (face-background 'tool-bar) 'unspecified)
nil
(list :background (face-background 'tool-bar))))
(colors (nconc fg bg))
(fg (face-attribute 'tool-bar :foreground))
(bg (face-attribute 'tool-bar :background))
(colors (nconc (if (eq fg 'unspecified) nil (list :foreground fg))
(if (eq bg 'unspecified) nil (list :background bg))))
(spec (if (display-color-p)
(list (list :type 'xpm :file (concat icon ".xpm"))
(append (list :type 'pbm :file (concat icon ".pbm"))