1123 (setq compile-auto-highlight t |
1123 (setq compile-auto-highlight t |
1124 compile-command "make ") |
1124 compile-command "make ") |
1125 ;; compilation window shall scroll down if not 0 |
1125 ;; compilation window shall scroll down if not 0 |
1126 (setq compilation-scroll-output 1) |
1126 (setq compilation-scroll-output 1) |
1127 |
1127 |
1128 ;; My funny error messages. |
1128 (eval-after-load 'compile |
1129 ;; XXX нужно реализовать через hook. |
1129 ;; My funny error messages. |
1130 (require 'compile) |
1130 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
1131 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
1131 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
1132 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
1132 (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler |
1133 (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler |
1133 ) |
|
1134 |
1134 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) |
1135 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) |
1135 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) |
1136 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) |
1136 |
1137 |
1137 ;;; ---------------------------------------------------------------- |
1138 ;;; ---------------------------------------------------------------- |
1138 (message "TAGS, etags, ctags, GNU GLOBAL") |
1139 (message "TAGS, etags, ctags, GNU GLOBAL") |