Mercurial > emacs

changeset 55986:49f0c8a3942a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* toolbar/tool-bar.el (tool-bar-local-item) (tool-bar-local-item-from-menu): Try to use icons with fewer colors if display-color-cells is 256 or less.
author Jan Djärv <jan.h.d@swipnet.se>
date Tue, 08 Jun 2004 17:47:52 +0000
parents 531dc4a2136b
children ca5f0b9c97fe
files lisp/toolbar/tool-bar.el
diffstat 1 files changed, 17 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/toolbar/tool-bar.el	Tue Jun 08 17:46:12 2004 +0000
+++ b/lisp/toolbar/tool-bar.el	Tue Jun 08 17:47:52 2004 +0000
@@ -118,18 +118,17 @@
 	 (bg (face-attribute 'tool-bar :background))
 	 (colors (nconc (if (eq fg 'unspecified) nil (list :foreground fg))
 			(if (eq bg 'unspecified) nil (list :background bg))))
+	 (xpm-spec (list :type 'xpm :file (concat icon ".xpm")))
+	 (xpm-lo-spec (if (> (display-color-cells) 256)
+			  nil
+			(list :type 'xpm :file (concat icon ".xpm"))))
+	 (pbm-spec (append (list :type 'pbm :file (concat icon ".pbm")) colors))
+	 (xbm-spec (append (list :type 'xbm :file (concat icon ".xbm")) colors))
 	 (image (find-image
 		(if (display-color-p)
-		    (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")))))))
+		    (list xpm-lo-spec xpm-spec pbm-spec xbm-spec)
+		  (list pbm-spec xbm-spec xpm-lo-spec xpm-spec)))))
+
     (when (and (display-images-p) image)
       (unless (image-mask-p image)
 	(setq image (append image '(:mask heuristic))))
@@ -170,17 +169,15 @@
 	 (bg (face-attribute 'tool-bar :background))
 	 (colors (nconc (if (eq fg 'unspecified) nil (list :foreground fg))
 			(if (eq bg 'unspecified) nil (list :background bg))))
+	 (xpm-spec (list :type 'xpm :file (concat icon ".xpm")))
+	 (xpm-lo-spec (if (> (display-color-cells) 256)
+			  nil
+			(list :type 'xpm :file (concat icon "-locol.xpm"))))
+	 (pbm-spec (append (list :type 'pbm :file (concat icon ".pbm")) colors))
+	 (xbm-spec (append (list :type 'xbm :file (concat icon ".xbm")) colors))
 	 (spec (if (display-color-p)
-		   (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")))))
+		   (list xpm-lo-spec xpm-spec pbm-spec xbm-spec)
+		 (list pbm-spec xbm-spec xpm-lo-spec xpm-spec)))
 	 (image (find-image spec))
 	 submap key)
     (when (and (display-images-p) image)