Mercurial > emacs
diff lisp/toolbar/tool-bar.el @ 56000:84b465b3b4e2
Moved to lc-*.xpm
author | Jan Djärv <jan.h.d@swipnet.se> |
---|---|
date | Wed, 09 Jun 2004 21:56:21 +0000 |
parents | 2809c96660f4 |
children | c7e565aa7305 4c90ffeb71c5 |
line wrap: on
line diff
--- a/lisp/toolbar/tool-bar.el Wed Jun 09 18:32:06 2004 +0000 +++ b/lisp/toolbar/tool-bar.el Wed Jun 09 21:56:21 2004 +0000 @@ -96,7 +96,7 @@ Info node `(elisp)Tool Bar'. Items are added from left to right. ICON is the base name of a file containing the image to use. The -function will first try to use ICON-locol.xpm if display-color-cells +function will first try to use lc-ICON.xpm if display-color-cells is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally ICON.xbm, using `find-image'. @@ -113,7 +113,7 @@ Info node `(elisp)Tool Bar'. Items are added from left to right. ICON is the base name of a file containing the image to use. The -function will first try to use ICON-locol.xpm if display-color-cells +function will first try to use lc-ICON.xpm if display-color-cells is less or equal to 256, then ICON.xpm, then ICON.pbm, and finally ICON.xbm, using `find-image'." (let* ((fg (face-attribute 'tool-bar :foreground)) @@ -123,7 +123,7 @@ (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")))) + (list :type 'xpm :file (concat "lc-" 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 @@ -174,7 +174,7 @@ (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")))) + (list :type 'xpm :file (concat "lc-" icon ".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)