diff options
| author | Miles Bader <miles@gnu.org> | 2005-06-17 05:07:26 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-06-17 05:07:26 +0000 |
| commit | 579322ca428f5d45be31933b5b9f510ac795253b (patch) | |
| tree | 15e63fbd25b825476e9a6698ea07d301109c97de /lisp/progmodes/cc-fonts.el | |
| parent | 44d554912eedabcbda28f9571ba2bb0717074044 (diff) | |
| download | emacs-579322ca428f5d45be31933b5b9f510ac795253b.tar.gz | |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-430
Remove "-face" suffix from cc-mode faces
2005-06-17 Miles Bader <miles@gnu.org>
* lisp/progmodes/cc-fonts.el (c-nonbreakable-space-face): Remove
"-face" suffix from face name.
(c-cpp-matchers): Use the variable `c-nonbreakable-space-face'
instead of literal face.
Diffstat (limited to 'lisp/progmodes/cc-fonts.el')
| -rw-r--r-- | lisp/progmodes/cc-fonts.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/progmodes/cc-fonts.el b/lisp/progmodes/cc-fonts.el index 29946dc4682..e78ec2c508d 100644 --- a/lisp/progmodes/cc-fonts.el +++ b/lisp/progmodes/cc-fonts.el @@ -193,6 +193,10 @@ (unless (c-face-name-p c-invalid-face-name) (defconst c-invalid-face 'c-invalid-face) ; Necessary in Emacs 19. + ;; This face should be called `c-invalid' for consistency with the + ;; rest of emacs, but as it's only used in very old versions of Emacs, + ;; we leave it unchanged (the face-alias mechanism doesn't exist in + ;; those old versions). (defface c-invalid-face '((((class color) (background light)) (:foreground "red1")) (((class color)) (:foreground "hotpink")) @@ -203,8 +207,8 @@ ;; To make hard spaces visible an inverted version of ;; `c-invalid-face-name' is used. Since font-lock in Emacs expands ;; all face names in `font-lock-keywords' as variables we need to have -;; a variable for it that resolves to its own name. -(defconst c-nonbreakable-space-face 'c-nonbreakable-space-face) +;; a variable for it. +(defconst c-nonbreakable-space-face 'c-nonbreakable-space) (cc-bytecomp-defun face-inverse-video-p) ; Only in Emacs. (cc-bytecomp-defun face-property-instance) ; Only in XEmacs. @@ -511,9 +515,9 @@ stuff. Used on level 1 and higher." (eval . (list "\240" 0 (progn - (unless (c-face-name-p 'c-nonbreakable-space-face) + (unless (c-face-name-p c-nonbreakable-space-face) (c-make-inverse-face c-invalid-face-name - 'c-nonbreakable-space-face)) + c-nonbreakable-space-face)) 'c-nonbreakable-space-face))) )) |