[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/flymake.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/flymake.el |
Date: |
Tue, 14 Jun 2005 19:20:38 -0400 |
Index: emacs/lisp/progmodes/flymake.el
diff -c emacs/lisp/progmodes/flymake.el:1.18
emacs/lisp/progmodes/flymake.el:1.19
*** emacs/lisp/progmodes/flymake.el:1.18 Tue Jun 14 11:32:58 2005
--- emacs/lisp/progmodes/flymake.el Tue Jun 14 23:20:37 2005
***************
*** 839,857 ****
(setq ov (cdr ov)))
has-flymake-overlays))
! (defface flymake-errline-face
;;+ '((((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)
! (defface flymake-warnline-face
'((((class color)) (:background "LightBlue2"))
(t (:bold t)))
"Face used for marking warning lines."
:group 'flymake)
(defun flymake-highlight-line (line-no line-err-info-list)
"Highlight line LINE-NO in current buffer.
--- 839,861 ----
(setq ov (cdr ov)))
has-flymake-overlays))
! (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
'((((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,893 ****
(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))
(flymake-make-overlay beg end tooltip-text face nil)))
--- 890,897 ----
(setq end (point)))
(if (> (flymake-get-line-err-count line-err-info-list "e") 0)
! (setq face 'flymake-errline)
! (setq face 'flymake-warnline))
(flymake-make-overlay beg end tooltip-text face nil)))