changeset 20 | fde58d93c047 |
parent 19 | a8e7a6e94341 |
child 21 | f4448d2863d6 |
--- a/.emacs Fri Apr 18 00:04:50 2008 +0300 +++ b/.emacs Fri Apr 18 00:04:51 2008 +0300 @@ -686,6 +686,10 @@ ;; compilation window shall scroll down if not 0 (setq compilation-scroll-output 1) +;; XXX нужно реализовать через hook. +(require 'compile) +(add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) +(add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) ;; ---------------------------------------------------------------------- ;; asm