Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents c9fe270a4101
children 341dac730539
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
2 2
3 ;; Copyright (C) 1992-4, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992-4, 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Board of Trustees, University of Illinois 4 ;; Copyright (C) 1995 Board of Trustees, University of Illinois
5 ;; Copyright (C) 1995, 1996 Ben Wing 5 ;; Copyright (C) 1995, 1996 Ben Wing
6 6
7 ;; Author: Ben Wing <wing@666.com> 7 ;; Author: Ben Wing <ben@xemacs.org>
8 ;; Keywords: faces, internal, dumped 8 ;; Keywords: faces, internal, dumped
9 9
10 ;; This file is part of XEmacs. 10 ;; This file is part of XEmacs.
11 11
12 ;; XEmacs is free software; you can redistribute it and/or modify it 12 ;; XEmacs is free software; you can redistribute it and/or modify it
1672 (and 1672 (and
1673 (featurep 'x) 1673 (featurep 'x)
1674 (x-get-resource "backgroundToolBarColor" 1674 (x-get-resource "backgroundToolBarColor"
1675 "BackgroundToolBarColor" 'string)) 1675 "BackgroundToolBarColor" 'string))
1676 1676
1677 (face-background 'toolbar) 1677 (face-background 'toolbar))))
1678 "Gray80")))
1679 (purecopy '("foregroundToolBarColor" 1678 (purecopy '("foregroundToolBarColor"
1680 (or 1679 (or
1681 (and 1680 (and
1682 (featurep 'x) 1681 (featurep 'x)
1683 (x-get-resource "foregroundToolBarColor" 1682 (x-get-resource "foregroundToolBarColor"
1684 "ForegroundToolBarColor" 'string)) 1683 "ForegroundToolBarColor" 'string))
1685 (face-foreground 'toolbar) 1684 (face-foreground 'toolbar))))
1686 "Black")))
1687 ))) 1685 )))
1688 1686
1689 (when (featurep 'tty) 1687 (when (featurep 'tty)
1690 (set-face-highlight-p 'bold t 'global '(default tty)) 1688 (set-face-highlight-p 'bold t 'global '(default tty))
1691 (set-face-underline-p 'italic t 'global '(default tty)) 1689 (set-face-underline-p 'italic t 'global '(default tty))