Mercurial > emacs
changeset 63449:d6d67f85ab76
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-412
Remove "-face" suffix from flymake faces
2005-06-14 Miles Bader <miles@gnu.org>
* lisp/progmodes/flymake.el (flymake-errline, flymake-warnline):
Remove "-face" suffix from face names.
(flymake-errline-face, flymake-warnline-face):
New backward-compatibility aliases for renamed faces.
(flymake-highlight-line): Use renamed flymake faces.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 14 Jun 2005 23:20:37 +0000 |
| parents | b9811baefe1a |
| children | 87216f91a211 |
| files | lisp/ChangeLog lisp/progmodes/flymake.el |
| diffstat | 2 files changed, 14 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jun 14 22:49:47 2005 +0000 +++ b/lisp/ChangeLog Tue Jun 14 23:20:37 2005 +0000 @@ -1,5 +1,11 @@ 2005-06-14 Miles Bader <miles@gnu.org> + * progmodes/flymake.el (flymake-errline, flymake-warnline): + Remove "-face" suffix from face names. + (flymake-errline-face, flymake-warnline-face): + New backward-compatibility aliases for renamed faces. + (flymake-highlight-line): Use renamed flymake faces. + * progmodes/ebrowse.el (ebrowse-tree-mark, ebrowse-root-class) (ebrowse-file-name, ebrowse-default, ebrowse-member-attribute) (ebrowse-member-class, ebrowse-progress):
--- a/lisp/progmodes/flymake.el Tue Jun 14 22:49:47 2005 +0000 +++ b/lisp/progmodes/flymake.el Tue Jun 14 23:20:37 2005 +0000 @@ -839,19 +839,23 @@ (setq ov (cdr ov))) has-flymake-overlays)) -(defface flymake-errline-face +(defface flymake-errline ;;+ '((((class color)) (:foreground "OrangeRed" :bold t :underline t)) ;;+ '((((class color)) (:underline "OrangeRed")) '((((class color)) (:background "LightPink")) (t (:bold t))) "Face used for marking error lines." :group 'flymake) +;; backward-compatibility alias +(put 'flymake-errline-face 'face-alias 'flymake-errline) -(defface flymake-warnline-face +(defface flymake-warnline '((((class color)) (:background "LightBlue2")) (t (:bold t))) "Face used for marking warning lines." :group 'flymake) +;; backward-compatibility alias +(put 'flymake-warnline-face 'face-alias 'flymake-warnline) (defun flymake-highlight-line (line-no line-err-info-list) "Highlight line LINE-NO in current buffer. @@ -886,8 +890,8 @@ (setq end (point))) (if (> (flymake-get-line-err-count line-err-info-list "e") 0) - (setq face 'flymake-errline-face) - (setq face 'flymake-warnline-face)) + (setq face 'flymake-errline) + (setq face 'flymake-warnline)) (flymake-make-overlay beg end tooltip-text face nil)))