Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children c9fe270a4101
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
1659 ((x default color) . "green") 1659 ((x default color) . "green")
1660 ((mswindows default color) . "paleturquoise") 1660 ((mswindows default color) . "paleturquoise")
1661 ((mswindows default color) . "green")) 1661 ((mswindows default color) . "green"))
1662 'global) 1662 'global)
1663 1663
1664 ;; Define some logical color names to be used when reading the pixmap files.
1665 (if (featurep 'xpm)
1666 (setq xpm-color-symbols
1667 (list
1668 (purecopy '("foreground" (face-foreground 'default)))
1669 (purecopy '("background" (face-background 'default)))
1670 (purecopy '("backgroundToolBarColor"
1671 (or
1672 (and
1673 (featurep 'x)
1674 (or
1675 (x-get-resource "backgroundToolBarColor"
1676 "BackgroundToolBarColor" 'string)
1677 (x-get-resource "background" "Background" 'string)))
1678 "Gray80")))
1679 (purecopy '("foregroundToolBarColor"
1680 (or
1681 (and
1682 (featurep 'x)
1683 (or
1684 (x-get-resource "foregroundToolBarColor"
1685 "ForegroundToolBarColor" 'string)
1686 (x-get-resource "foreground" "Foreground" 'string)))
1687 "Black")))
1688 )))
1689
1664 (when (featurep 'tty) 1690 (when (featurep 'tty)
1665 (set-face-highlight-p 'bold t 'global '(default tty)) 1691 (set-face-highlight-p 'bold t 'global '(default tty))
1666 (set-face-underline-p 'italic t 'global '(default tty)) 1692 (set-face-underline-p 'italic t 'global '(default tty))
1667 (set-face-highlight-p 'bold-italic t 'global '(default tty)) 1693 (set-face-highlight-p 'bold-italic t 'global '(default tty))
1668 (set-face-underline-p 'bold-italic t 'global '(default tty)) 1694 (set-face-underline-p 'bold-italic t 'global '(default tty))