equal
deleted
inserted
replaced
2128 (when (boundp 'compilation-mode-font-lock-keywords) |
2128 (when (boundp 'compilation-mode-font-lock-keywords) |
2129 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
2129 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
2130 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
2130 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
2131 ) |
2131 ) |
2132 )) |
2132 )) |
|
2133 |
|
2134 (ignore-errors |
|
2135 (require 'ansi-color) |
|
2136 (defun my-colorize-compilation-buffer () |
|
2137 (when (eq major-mode 'compilation-mode) |
|
2138 (ansi-color-apply-on-region compilation-filter-start (point-max)))) |
|
2139 (add-hook 'compilation-filter-hook 'my-colorize-compilation-buffer)) |
2133 |
2140 |
2134 (defvar my-comint-send-hist-list nil |
2141 (defvar my-comint-send-hist-list nil |
2135 "History list for `my-comint-send-string'." |
2142 "History list for `my-comint-send-string'." |
2136 ) |
2143 ) |
2137 (defun my-comint-send-string (string) |
2144 (defun my-comint-send-string (string) |