--- a/.emacs-my	Sun Dec 22 23:06:32 2013 +0200
+++ b/.emacs-my	Thu Dec 26 19:24:16 2013 +0200
@@ -2131,6 +2131,13 @@
        )
      ))
 
+(ignore-errors
+  (require 'ansi-color)
+  (defun my-colorize-compilation-buffer ()
+    (when (eq major-mode 'compilation-mode)
+      (ansi-color-apply-on-region compilation-filter-start (point-max))))
+  (add-hook 'compilation-filter-hook 'my-colorize-compilation-buffer))
+
 (defvar my-comint-send-hist-list nil
   "History list for `my-comint-send-string'."
   )