equal
deleted
inserted
replaced
635 (defface my-tab-face |
635 (defface my-tab-face |
636 '((t :background "gray")) |
636 '((t :background "gray")) |
637 "Face for showing TABs." |
637 "Face for showing TABs." |
638 :group 'basic-faces) |
638 :group 'basic-faces) |
639 |
639 |
640 (defface my-todo-face |
|
641 '((t :foreground "red" :weight bold)) |
|
642 "Font for showing TODO words." |
|
643 :group 'basic-faces) |
|
644 |
|
645 (defface my-conflict-face |
640 (defface my-conflict-face |
646 '((t :background "pink" :foreground "red" :weight bold)) |
641 '((t :background "pink" :foreground "red" :weight bold)) |
647 "Font for showing conflicts." |
642 "Font for showing conflicts." |
648 :group 'basic-faces) |
643 :group 'basic-faces) |
649 |
644 |
655 (add-hook 'font-lock-mode-hook (function (lambda () |
650 (add-hook 'font-lock-mode-hook (function (lambda () |
656 (when (member major-mode my-devel-mode-list) |
651 (when (member major-mode my-devel-mode-list) |
657 (font-lock-add-keywords nil |
652 (font-lock-add-keywords nil |
658 '( |
653 '( |
659 ("\t+" 0 'my-tab-face t) |
654 ("\t+" 0 'my-tab-face t) |
660 ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t) |
655 ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t) |
661 ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t) |
656 ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t) |
662 )))))) |
657 )))))) |
663 |
658 |
664 ;; (dolist (mode '(c-mode |
659 ;; (dolist (mode '(c-mode |
665 ;; java-mode |
660 ;; java-mode |