--- a/.emacs-obsolete	Sun Nov 01 15:11:09 2015 +0200
+++ b/.emacs-obsolete	Sun Nov 01 15:13:52 2015 +0200
@@ -69,3 +69,18 @@
 ;; For Cygwin.
 
 (add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "TODO, XXX, FIXME highlight")
+
+(defface my-contrasty-face
+  '((t :background "pink" :foreground "red" :weight bold))
+  "Font for showing conflicts."
+  :group 'basic-faces)
+
+(dolist (mode (append my-devel-mode-list my-text-mode-list))
+  (font-lock-add-keywords
+   mode
+   `(
+     ;; 64 times, for highlight C-u C-u C-u <key>
+     ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) )) )