--- a/.emacs-my	Sat Mar 19 23:45:57 2011 +0200
+++ b/.emacs-my	Sun Mar 20 00:10:26 2011 +0200
@@ -934,9 +934,9 @@
 (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)
+     ( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX")) ":?\\)\\>") 1 'font-lock-warning-face t)
      ("\\(=\\|<\\|>\\)\\{7,\\}" 0 'my-contrasty-face t)
      ;; 64 times, for highlight C-u C-u C-u <key>
      ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t)