Mercurial > emacs

comparison lisp/generic-x.el @ 63206:2624ddc5a43f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-376 Remove "-face" suffix from show-tabs faces 2005-06-10 Miles Bader <miles@gnu.org> * lisp/generic-x.el (show-tabs-tab, show-tabs-space): Remove "-face" suffix from face names. (show-tabs-tab-face, show-tabs-space-face): New backward-compatibility aliases for renamed faces. (show-tabs-generic-mode-font-lock-defaults-1) (show-tabs-generic-mode-font-lock-defaults-2): Use renamed show-tabs faces.
author Miles Bader <miles@gnu.org>
date Fri, 10 Jun 2005 08:48:28 +0000
parents 0f01cf50bf81
children 6fb026ad601f a1b34dec1104
comparison
equal deleted inserted replaced
63205:6dde8ad3e1a7 63206:2624ddc5a43f
1731 1731
1732 (eval-when-compile 1732 (eval-when-compile
1733 1733
1734 (defconst show-tabs-generic-mode-font-lock-defaults-1 1734 (defconst show-tabs-generic-mode-font-lock-defaults-1
1735 '(;; trailing spaces must come before... 1735 '(;; trailing spaces must come before...
1736 ("[ \t]+$" . 'show-tabs-space-face) 1736 ("[ \t]+$" . 'show-tabs-space)
1737 ;; ...embedded tabs 1737 ;; ...embedded tabs
1738 ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab-face)))) 1738 ("[^\n\t]\\(\t+\\)" (1 'show-tabs-tab))))
1739 1739
1740 (defconst show-tabs-generic-mode-font-lock-defaults-2 1740 (defconst show-tabs-generic-mode-font-lock-defaults-2
1741 '(;; trailing spaces must come before... 1741 '(;; trailing spaces must come before...
1742 ("[ \t]+$" . 'show-tabs-space-face) 1742 ("[ \t]+$" . 'show-tabs-space)
1743 ;; ...tabs 1743 ;; ...tabs
1744 ("\t+" . 'show-tabs-tab-face)))) 1744 ("\t+" . 'show-tabs-tab))))
1745 1745
1746 (defface show-tabs-tab-face 1746 (defface show-tabs-tab
1747 '((((class grayscale) (background light)) (:background "DimGray" :weight bold)) 1747 '((((class grayscale) (background light)) (:background "DimGray" :weight bold))
1748 (((class grayscale) (background dark)) (:background "LightGray" :weight bold)) 1748 (((class grayscale) (background dark)) (:background "LightGray" :weight bold))
1749 (((class color) (min-colors 88)) (:background "red1")) 1749 (((class color) (min-colors 88)) (:background "red1"))
1750 (((class color)) (:background "red")) 1750 (((class color)) (:background "red"))
1751 (t (:weight bold))) 1751 (t (:weight bold)))
1752 "Font Lock mode face used to highlight TABs." 1752 "Font Lock mode face used to highlight TABs."
1753 :group 'generic-x) 1753 :group 'generic-x)
1754 1754 ;; backward-compatibility alias
1755 (defface show-tabs-space-face 1755 (put 'show-tabs-tab-face 'face-alias 'show-tabs-tab)
1756
1757 (defface show-tabs-space
1756 '((((class grayscale) (background light)) (:background "DimGray" :weight bold)) 1758 '((((class grayscale) (background light)) (:background "DimGray" :weight bold))
1757 (((class grayscale) (background dark)) (:background "LightGray" :weight bold)) 1759 (((class grayscale) (background dark)) (:background "LightGray" :weight bold))
1758 (((class color) (min-colors 88)) (:background "yellow1")) 1760 (((class color) (min-colors 88)) (:background "yellow1"))
1759 (((class color)) (:background "yellow")) 1761 (((class color)) (:background "yellow"))
1760 (t (:weight bold))) 1762 (t (:weight bold)))
1761 "Font Lock mode face used to highlight spaces." 1763 "Font Lock mode face used to highlight spaces."
1762 :group 'generic-x) 1764 :group 'generic-x)
1765 ;; backward-compatibility alias
1766 (put 'show-tabs-space-face 'face-alias 'show-tabs-space)
1763 1767
1764 (define-generic-mode show-tabs-generic-mode 1768 (define-generic-mode show-tabs-generic-mode
1765 nil ;; no comment char 1769 nil ;; no comment char
1766 nil ;; no keywords 1770 nil ;; no keywords
1767 (eval-when-compile show-tabs-generic-mode-font-lock-defaults-1) 1771 (eval-when-compile show-tabs-generic-mode-font-lock-defaults-1)