797 (defface my-tab-face |
797 (defface my-tab-face |
798 '((t :background "gray")) |
798 '((t :background "gray")) |
799 "Face for showing TABs." |
799 "Face for showing TABs." |
800 :group 'basic-faces) |
800 :group 'basic-faces) |
801 |
801 |
802 (defface my-conflict-face |
802 (defface my-contrasty-face |
803 '((t :background "pink" :foreground "red" :weight bold)) |
803 '((t :background "pink" :foreground "red" :weight bold)) |
804 "Font for showing conflicts." |
804 "Font for showing conflicts." |
805 :group 'basic-faces) |
805 :group 'basic-faces) |
806 |
806 |
807 (add-hook 'font-lock-mode-hook (function (lambda () |
807 (dolist (mode my-devel-mode-list) |
808 (when (member major-mode my-devel-mode-list) |
808 (font-lock-add-keywords |
809 (font-lock-add-keywords nil |
809 mode |
810 '( |
810 '( |
811 ("\t+" 0 'my-tab-face t) |
811 ("\t+" 0 'my-tab-face t) |
812 ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t) |
812 ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t) |
813 ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t) |
813 ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-contrasty-face t) |
814 )))))) |
814 ;; 64 times, for highlight C-u C-u C-u <key> |
815 |
815 ("\\([^[:space:]]\\)\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1\\1" |
816 ;; (dolist (mode '(c-mode |
816 0 'my-contrasty-face t) |
817 ;; java-mode |
817 )) |
818 ;; cperl-mode |
818 ) |
819 ;; html-mode-hook |
|
820 ;; css-mode-hook |
|
821 ;; emacs-lisp-mode)) |
|
822 ;; (font-lock-add-keywords mode |
|
823 ;; '(("\\(XXX\\|FIXME\\|TODO\\)" |
|
824 ;; 1 font-lock-warning-face prepend)))) |
|
825 |
819 |
826 ;;; ---------------------------------------------------------------- |
820 ;;; ---------------------------------------------------------------- |
827 ;;; communication. |
821 ;;; communication. |
828 |
822 |
829 ;;; ---------------------------------------------------------------- |
823 ;;; ---------------------------------------------------------------- |