.emacs-my
changeset 600 5a67b40de30d
parent 599 61a2d23358eb
child 601 7be9c0c0ffb7
equal deleted inserted replaced
599:61a2d23358eb 600:5a67b40de30d
   932   :group 'basic-faces)
   932   :group 'basic-faces)
   933 
   933 
   934 (dolist (mode my-devel-mode-list)
   934 (dolist (mode my-devel-mode-list)
   935   (font-lock-add-keywords
   935   (font-lock-add-keywords
   936    mode
   936    mode
   937    '(
   937    `(
   938      ("\t+" 0 'my-tab-face t)
   938      ("\t+" 0 'my-tab-face t)
   939      ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'font-lock-warning-face t)
   939      ( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX")) ":?\\)\\>") 1 'font-lock-warning-face t)
   940      ("\\(=\\|<\\|>\\)\\{7,\\}" 0 'my-contrasty-face t)
   940      ("\\(=\\|<\\|>\\)\\{7,\\}" 0 'my-contrasty-face t)
   941      ;; 64 times, for highlight C-u C-u C-u <key>
   941      ;; 64 times, for highlight C-u C-u C-u <key>
   942      ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)
   942      ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)
   943      ))
   943      ))
   944   )
   944   )