Mercurial > emacs

changeset 34019:3d6f9638e8e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tool-bar-add-item-from-menu): Use face-attribute instead of face-foreground and face-background. (tool-bar-add-item): Likewise, and handle unspecified colors.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 29 Nov 2000 19:21:47 +0000
parents a442998dd573
children 43839f6e2822
files lisp/toolbar/tool-bar.el
diffstat 1 files changed, 18 insertions(+), 23 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/toolbar/tool-bar.el	Wed Nov 29 19:21:17 2000 +0000
+++ b/lisp/toolbar/tool-bar.el	Wed Nov 29 19:21:47 2000 +0000
@@ -89,24 +89,22 @@
 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 @@
     (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"))