Moved highlight pattern from hook to mode highlighting list.
Added highlighting for 64 repeated chars.
--- a/.emacs-my Fri Sep 10 18:46:13 2010 +0300
+++ b/.emacs-my Mon Sep 13 12:10:36 2010 +0300
@@ -799,29 +799,23 @@
"Face for showing TABs."
:group 'basic-faces)
-(defface my-conflict-face
+(defface my-contrasty-face
'((t :background "pink" :foreground "red" :weight bold))
"Font for showing conflicts."
:group 'basic-faces)
-(add-hook 'font-lock-mode-hook (function (lambda ()
- (when (member major-mode my-devel-mode-list)
- (font-lock-add-keywords nil
- '(
- ("\t+" 0 'my-tab-face t)
- ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
- ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-conflict-face t)
- ))))))
-
-;; (dolist (mode '(c-mode
-;; java-mode
-;; cperl-mode
-;; html-mode-hook
-;; css-mode-hook
-;; emacs-lisp-mode))
-;; (font-lock-add-keywords mode
-;; '(("\\(XXX\\|FIXME\\|TODO\\)"
-;; 1 font-lock-warning-face prepend))))
+(dolist (mode my-devel-mode-list)
+ (font-lock-add-keywords
+ mode
+ '(
+ ("\t+" 0 'my-tab-face t)
+ ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
+ ("\\(=\\{7,\\}\\|<\\{7,\\}\\|>\\{7,\\}\\)" 1 'my-contrasty-face t)
+ ;; 64 times, for highlight C-u C-u C-u <key>
+ ("\\([^[: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"
+ 0 'my-contrasty-face t)
+ ))
+ )
;;; ----------------------------------------------------------------
;;; communication.