Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 269:b2472a1930f2 r20-5b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 8efd647ea9ca
children c5d627a313b1
comparison
equal deleted inserted replaced
268:6ced69ccd85f 269:b2472a1930f2
1580 1580
1581 ;; Make some useful faces. This happens very early, before creating 1581 ;; Make some useful faces. This happens very early, before creating
1582 ;; the first non-stream device. 1582 ;; the first non-stream device.
1583 1583
1584 (set-face-background 'text-cursor 1584 (set-face-background 'text-cursor
1585 '(((default x) . "Red3") 1585 '(((x default) . "Red3")
1586 ((default mswindows) . "Red3")) 1586 ((mswindows default) . "Red3"))
1587 'global) 1587 'global)
1588 1588
1589 ;; some older servers don't recognize "darkseagreen2" 1589 ;; some older X servers don't recognize "darkseagreen2"
1590 (set-face-background 'highlight 1590 (set-face-background 'highlight
1591 '(((default color) . "darkseagreen2") 1591 '(((x default color) . "darkseagreen2")
1592 ((default color) . "green") 1592 ((x default color) . "green")
1593 ((default grayscale) . "gray53")) 1593 ((x default grayscale) . "gray53")
1594 ((mswindows default color) . "darkseagreen2")
1595 ((mswindows default color) . "green")
1596 ((mswindows default grayscale) . "gray53"))
1594 'global) 1597 'global)
1595 (set-face-background-pixmap 'highlight "gray1" 'global '(default mono)) 1598 (set-face-background-pixmap 'highlight
1596 1599 '(((x default mono) . "gray1")
1597 (set-face-background 'zmacs-region "gray65" 'global '(default color)) 1600 ((mswindows default mono) . "gray1"))
1598 (set-face-background 'zmacs-region "gray65" 'global '(default grayscale)) 1601 'global)
1599 (set-face-background-pixmap 'zmacs-region "gray3" 'global '(default mono)) 1602
1600 1603 (set-face-background 'zmacs-region
1601 (set-face-background 'list-mode-item-selected "gray68" 'global 1604 '(((x default color) . "gray65")
1602 '(default color)) 1605 ((x default grayscale) . "gray65")
1603 (set-face-background 'list-mode-item-selected "gray68" 'global 1606 ((mswindows default color) . "gray65")
1604 '(default grayscale)) 1607 ((mswindows default grayscale) . "gray65"))
1608 'global)
1609 (set-face-background-pixmap 'zmacs-region
1610 '(((x default mono) . "gray3")
1611 ((mswindows default mono) . "gray3"))
1612 'global)
1613
1605 (set-face-background 'list-mode-item-selected 1614 (set-face-background 'list-mode-item-selected
1606 [default foreground] 'global '(default mono)) 1615 '(((x default color) . "gray68")
1616 ((x default grayscale) . "gray68")
1617 ((x default mono) . [default foreground])
1618 ((mswindows default color) . "gray68")
1619 ((mswindows default grayscale) . "gray68")
1620 ((mswindows default mono) . [default foreground]))
1621 'global)
1607 (set-face-foreground 'list-mode-item-selected 1622 (set-face-foreground 'list-mode-item-selected
1608 [default background] 'global '(default mono)) 1623 '(((x default mono) . [default background])
1609 1624 ((mswindows default mono) . [default background]))
1610 (set-face-background 'primary-selection "gray65" 'global '(default color)) 1625 'global)
1611 (set-face-background 'primary-selection "gray65" 'global '(default grayscale)) 1626
1612 (set-face-background-pixmap 'primary-selection "gray3" 'global '(default mono)) 1627 (set-face-background 'primary-selection
1628 '(((x default color) . "gray65")
1629 ((x default grayscale) . "gray65")
1630 ((mswindows default color) . "gray65")
1631 ((mswindows default grayscale) . "gray65"))
1632 'global)
1633 (set-face-background-pixmap 'primary-selection
1634 '(((x default mono) . "gray3")
1635 ((mswindows default mono) . "gray3"))
1636 'global)
1613 1637
1614 (set-face-background 'secondary-selection 1638 (set-face-background 'secondary-selection
1615 '(((default color) . "paleturquoise") 1639 '(((x default color) . "paleturquoise")
1616 ((default color) . "green") 1640 ((x default color) . "green")
1617 ((default grayscale) . "gray53")) 1641 ((x default grayscale) . "gray53")
1642 ((mswindows default color) . "paleturquoise")
1643 ((mswindows default color) . "green")
1644 ((mswindows default grayscale) . "gray53"))
1618 'global) 1645 'global)
1619 (set-face-background-pixmap 'secondary-selection "gray1" 'global 1646 (set-face-background-pixmap 'secondary-selection
1620 '(default mono)) 1647 '(((x default mono) . "gray1")
1648 ((mswindows default mono) . "gray1"))
1649 'global)
1621 1650
1622 (set-face-background 'isearch 1651 (set-face-background 'isearch
1623 '(((default color) . "paleturquoise") 1652 '(((x default color) . "paleturquoise")
1624 ((default color) . "green")) 1653 ((x default color) . "green")
1654 ((mswindows default color) . "paleturquoise")
1655 ((mswindows default color) . "green"))
1625 'global) 1656 'global)
1626 1657
1627 (when (featurep 'tty) 1658 (when (featurep 'tty)
1628 (set-face-highlight-p 'bold t 'global '(default tty)) 1659 (set-face-highlight-p 'bold t 'global '(default tty))
1629 (set-face-underline-p 'italic t 'global '(default tty)) 1660 (set-face-underline-p 'italic t 'global '(default tty))