mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 05:32:08 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-412

Browse source 
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.
This commit is contained in:
Miles Bader 2005-06-14 23:20:37 +00:00
parent 4f2d55da49
commit ded09abd8d
2 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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):

12
lisp/progmodes/flymake.el
View file

@ -839,19 +839,23 @@ Return t if it has at least one flymake overlay, nil if no overlay."
(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 @@ Perhaps use text from LINE-ERR-INFO-ILST to enhance highlighting."
(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)))