334 ;; Do not set t because some grep do not has --color options. |
334 ;; Do not set t because some grep do not has --color options. |
335 (setq grep-highlight-matches nil) |
335 (setq grep-highlight-matches nil) |
336 (setq grep-use-null-device nil) |
336 (setq grep-use-null-device nil) |
337 |
337 |
338 (eval-after-load 'grep |
338 (eval-after-load 'grep |
339 (lambda nil |
339 '(progn |
340 (add-to-list 'grep-find-ignored-directories "build" t) |
340 (add-to-list 'grep-find-ignored-directories "build" t) |
341 (add-to-list 'grep-find-ignored-directories "dist" t) |
341 (add-to-list 'grep-find-ignored-directories "dist" t) |
342 (add-to-list 'grep-find-ignored-directories "lib" t) |
342 (add-to-list 'grep-find-ignored-directories "lib" t) |
343 |
343 |
344 (add-to-list 'grep-find-ignored-files "*TAGS") |
344 (add-to-list 'grep-find-ignored-files "*TAGS") |
345 (add-to-list 'grep-find-ignored-files "GPATH") |
345 (add-to-list 'grep-find-ignored-files "GPATH") |
346 )) |
346 )) |
347 |
347 |
348 (global-set-key [M-f7] 'rgrep) |
348 (global-set-key [M-f7] 'rgrep) |
349 |
349 |
350 ;;; ---------------------------------------------------------------- |
350 ;;; ---------------------------------------------------------------- |
351 (message "syntax highlighting") |
351 (message "syntax highlighting") |
1125 compile-command "make ") |
1125 compile-command "make ") |
1126 ;; compilation window shall scroll down if not 0 |
1126 ;; compilation window shall scroll down if not 0 |
1127 (setq compilation-scroll-output 1) |
1127 (setq compilation-scroll-output 1) |
1128 |
1128 |
1129 (eval-after-load 'compile |
1129 (eval-after-load 'compile |
1130 (lambda nil |
1130 '(progn |
1131 ;; My funny error messages. |
1131 ;; My funny error messages. |
1132 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
1132 (add-to-list 'compilation-error-regexp-alist '("^\\( +\\[csc\\] \\|\\)\\(.*\\)(\\([0-9]*\\),\\([0-9]*\\)):" 2 3 4)) |
1133 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
1133 (add-to-list 'compilation-error-regexp-alist '("^ *\\(.*\\)(\\([0-9]*\\)) +:" 1 2)) |
1134 (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler |
1134 (add-to-list 'compilation-error-regexp-alist '("^\"?\\([^\"]*\\)\"?,\\([0-9]*\\) .*\\[.*\\]: " 1 2)) ; KEIL compiler |
1135 (when (boundp 'compilation-mode-font-lock-keywords) |
1135 (when (boundp 'compilation-mode-font-lock-keywords) |
1136 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
1136 (add-to-list 'compilation-mode-font-lock-keywords '("\\(/[Oo][Uu][Tt]:[^[:blank:]]+\\)" . 1)) |
1137 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
1137 (add-to-list 'compilation-mode-font-lock-keywords '("[[:blank:]]\\(/F[oe][^[:blank:]]+\\)" . 1)) |
1138 ) |
1138 ) |
1139 )) |
1139 )) |
1140 |
1140 |
1141 ;;; ---------------------------------------------------------------- |
1141 ;;; ---------------------------------------------------------------- |
1142 (message "TAGS, etags, ctags, GNU GLOBAL") |
1142 (message "TAGS, etags, ctags, GNU GLOBAL") |
1143 |
1143 |
1144 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |
1144 ;; One of 'tags-table-list' or 'tags-file-name' control which TAGS files to |