Mercurial > emacs
comparison lisp/progmodes/flymake.el @ 96944:a34136e0b961
(flymake-errline, flymake-warnline): Use more suitable colors on dark
displays.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 23 Jul 2008 21:54:48 +0000 |
| parents | 4b7c7fff9fd1 |
| children | bf970fafde22 |
comparison
equal
deleted
inserted
replaced
| 96943:54e09977a797 | 96944:a34136e0b961 |
|---|---|
| 785 (setq has-flymake-overlays t)) | 785 (setq has-flymake-overlays t)) |
| 786 (setq ov (cdr ov))) | 786 (setq ov (cdr ov))) |
| 787 has-flymake-overlays)) | 787 has-flymake-overlays)) |
| 788 | 788 |
| 789 (defface flymake-errline | 789 (defface flymake-errline |
| 790 ;;+ '((((class color)) (:foreground "OrangeRed" :bold t :underline t)) | 790 '((((background dark)) (:background "Firebrick4")) |
| 791 ;;+ '((((class color)) (:underline "OrangeRed")) | 791 (((background light)) (:background "LightPink")) |
| 792 '((((class color)) (:background "LightPink")) | |
| 793 (t (:bold t))) | 792 (t (:bold t))) |
| 794 "Face used for marking error lines." | 793 "Face used for marking error lines." |
| 795 :group 'flymake) | 794 :group 'flymake) |
| 796 | 795 |
| 797 (defface flymake-warnline | 796 (defface flymake-warnline |
| 798 '((((class color)) (:background "LightBlue2")) | 797 '((((background dark)) (:background "DarkBlue")) |
| 798 (((background light)) (:background "LightBlue2")) | |
| 799 (t (:bold t))) | 799 (t (:bold t))) |
| 800 "Face used for marking warning lines." | 800 "Face used for marking warning lines." |
| 801 :group 'flymake) | 801 :group 'flymake) |
| 802 | 802 |
| 803 (defun flymake-highlight-line (line-no line-err-info-list) | 803 (defun flymake-highlight-line (line-no line-err-info-list) |