equal
deleted
inserted
replaced
1129 (lambda nil |
1129 (lambda nil |
1130 ;; My funny error messages. |
1130 ;; My funny error messages. |
1131 (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)) |
1132 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
1132 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
1133 (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 |
|
1134 (when (boundp 'compilation-mode-font-lock-keywords) |
|
1135 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
|
1136 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
|
1137 ) |
1134 )) |
1138 )) |
1135 |
|
1136 ;; (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^ ]+\\)" . 1)) |
|
1137 ;; (add-to-list 'compilation-mode-font-lock-keywords '("[ ]\\(/F[oe][^ ]+\\)" . 1)) |
|
1138 |
1139 |
1139 ;;; ---------------------------------------------------------------- |
1140 ;;; ---------------------------------------------------------------- |
1140 (message "TAGS, etags, ctags, GNU GLOBAL") |
1141 (message "TAGS, etags, ctags, GNU GLOBAL") |
1141 |
1142 |
1142 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |
1143 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |