Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 290:c9fe270a4101 r21-0b43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b43
author cvs
date Mon, 13 Aug 2007 10:36:47 +0200
parents e11d67e05968
children 70ad99077275
comparison
equal deleted inserted replaced
289:6e6992ccc4b6 290:c9fe270a4101
1669 (purecopy '("background" (face-background 'default))) 1669 (purecopy '("background" (face-background 'default)))
1670 (purecopy '("backgroundToolBarColor" 1670 (purecopy '("backgroundToolBarColor"
1671 (or 1671 (or
1672 (and 1672 (and
1673 (featurep 'x) 1673 (featurep 'x)
1674 (or 1674 (x-get-resource "backgroundToolBarColor"
1675 (x-get-resource "backgroundToolBarColor" 1675 "BackgroundToolBarColor" 'string))
1676 "BackgroundToolBarColor" 'string) 1676
1677 (x-get-resource "background" "Background" 'string))) 1677 (face-background 'toolbar)
1678 "Gray80"))) 1678 "Gray80")))
1679 (purecopy '("foregroundToolBarColor" 1679 (purecopy '("foregroundToolBarColor"
1680 (or 1680 (or
1681 (and 1681 (and
1682 (featurep 'x) 1682 (featurep 'x)
1683 (or 1683 (x-get-resource "foregroundToolBarColor"
1684 (x-get-resource "foregroundToolBarColor" 1684 "ForegroundToolBarColor" 'string))
1685 "ForegroundToolBarColor" 'string) 1685 (face-foreground 'toolbar)
1686 (x-get-resource "foreground" "Foreground" 'string)))
1687 "Black"))) 1686 "Black")))
1688 ))) 1687 )))
1689 1688
1690 (when (featurep 'tty) 1689 (when (featurep 'tty)
1691 (set-face-highlight-p 'bold t 'global '(default tty)) 1690 (set-face-highlight-p 'bold t 'global '(default tty))