[Emacs-diffs] Changes to emacs/lisp/progmodes/flymake.el

[Miles Bader]

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