--- a/.emacs	Thu Apr 17 23:58:12 2008 +0300
+++ b/.emacs	Thu Apr 17 23:59:52 2008 +0300
@@ -189,6 +189,8 @@
 (global-set-key [?\C-x right] 'next-buffer)
 (global-set-key [?\C-x left]  'previous-buffer)
 
+(global-set-key (kbd "C-x C-d") 'dired)
+
 (global-set-key (kbd "\e\eg") 'goto-line)
 (global-set-key (kbd "\e\er") 'query-replace-regexp)
 
@@ -620,6 +622,31 @@
 ;;                           (setq show-trailing-whitespace t)))
 
 ;; ----------------------------------------------------------------------
+;; TODO, XXX, FIXME highlight.
+;; Show blanks and FIXME
+;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule
+
+(defface my-tab-face
+  '((((type graphical) (class color) (min-colors 216)) (:underline "#666"))
+    (((class color) (min-colors 216)) (:background "#666"))
+    (((class color) (min-colors  16)) (:background "yellow")))
+  "Face for showing TABs."
+  :group 'basic-faces)
+
+(defface my-todo-face
+  '((t :foreground "red" :weight bold))
+  "Font for showing TODO words."
+  :group 'basic-faces)
+
+(add-hook 'font-lock-mode-hook (function (lambda ()
+  (unless (or (eq 'diff-mode major-mode) (eq 'script-mode major-mode))
+    (font-lock-add-keywords nil
+     '(
+       ("\t+" 0 'my-tab-face t)
+       ("\\<\\(FIXME:?\\|XXX:?\\|TODO:?\\)\\>" 1 'my-todo-face t)
+       ))))))
+
+;; ----------------------------------------------------------------------
 ;; Diff, patch
 ;; (add-hook 'diff-mode-hook '(lambda ()
 ;;                              (setq show-trailing-whitespace t)) nil t)