72 

    73 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    74 (message "TODO, XXX, FIXME highlight")

    75 

    76 (defface my-contrasty-face

    77   '((t :background "pink" :foreground "red" :weight bold))

    78   "Font for showing conflicts."

    79   :group 'basic-faces)

    80 

    81 (dolist (mode (append my-devel-mode-list my-text-mode-list))

    82   (font-lock-add-keywords

    83    mode

    84    `(

    85      ;; 64 times, for highlight C-u C-u C-u <key>

    86      ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) )) )