Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 410:de805c49cfc1 r21-2-35

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-35
author cvs
date Mon, 13 Aug 2007 11:19:21 +0200
parents 501cfd01ee6d
children 697ef44129c6
comparison
equal deleted inserted replaced
409:301b9ebbdf3b 410:de805c49cfc1
1759 (purecopy '("backgroundToolBarColor" 1759 (purecopy '("backgroundToolBarColor"
1760 (or 1760 (or
1761 (and 1761 (and
1762 (featurep 'x) 1762 (featurep 'x)
1763 (x-get-resource "backgroundToolBarColor" 1763 (x-get-resource "backgroundToolBarColor"
1764 "BackgroundToolBarColor" 'string)) 1764 "BackgroundToolBarColor" 'string
1765 nil nil 'warn))
1765 1766
1766 (face-background 'toolbar)))) 1767 (face-background 'toolbar))))
1767 (purecopy '("foregroundToolBarColor" 1768 (purecopy '("foregroundToolBarColor"
1768 (or 1769 (or
1769 (and 1770 (and
1770 (featurep 'x) 1771 (featurep 'x)
1771 (x-get-resource "foregroundToolBarColor" 1772 (x-get-resource "foregroundToolBarColor"
1772 "ForegroundToolBarColor" 'string)) 1773 "ForegroundToolBarColor" 'string
1774 nil nil 'warn))
1773 (face-foreground 'toolbar)))) 1775 (face-foreground 'toolbar))))
1774 ))) 1776 )))
1775 1777
1776 (when (featurep 'tty) 1778 (when (featurep 'tty)
1777 (set-face-highlight-p 'bold t 'global '(default tty)) 1779 (set-face-highlight-p 'bold t 'global '(default tty))