181 |
(epc |
(epc |
182 |
"^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1) |
"^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1) |
183 |
|
|
184 |
(ftnchek-file |
(ftnchek |
185 |
"^File \\(.+\\.f\\):$" |
"\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)" |
186 |
1 nil nil 0) |
4 2 3 (1)) |
|
(ftnchek-line-file |
|
|
"\\(^Warning .* \\)?line \\([0-9]+\\)\\(?: col \\([0-9]+\\)\\)? file \\(.+\\.f\\)" |
|
|
4 2 3 (1) nil (1 'default nil t)) |
|
|
(ftnchek-line |
|
|
"\\(?:^\\(Warning\\) .* \\)?line \\([0-9]+\\)\\(?: col \\([0-9]+\\)\\)?" |
|
|
nil 2 3 (1) nil (1 (compilation-face '(1)) nil t)) |
|
187 |
|
|
188 |
(iar |
(iar |
189 |
"^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:" |
"^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:" |
910 |
;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make" |
;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make" |
911 |
(cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command) |
(cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command) |
912 |
(if (match-end 1) |
(if (match-end 1) |
913 |
(match-string 1 command) |
(substitute-env-vars (match-string 1 command)) |
914 |
"~") |
"~") |
915 |
default-directory)) |
default-directory)) |
916 |
(erase-buffer) |
(erase-buffer) |
1080 |
|
|
1081 |
(defvar compilation-mode-map |
(defvar compilation-mode-map |
1082 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
1083 |
(set-keymap-parent map compilation-minor-mode-map) |
;; Don't inherit from compilation-minor-mode-map, |
1084 |
|
;; because that introduces a menu bar item we don't want. |
1085 |
|
;; That confuses C-down-mouse-3. |
1086 |
|
(define-key map [mouse-2] 'compile-goto-error) |
1087 |
|
(define-key map "\C-c\C-c" 'compile-goto-error) |
1088 |
|
(define-key map "\C-m" 'compile-goto-error) |
1089 |
|
(define-key map "\C-c\C-k" 'kill-compilation) |
1090 |
|
(define-key map "\M-n" 'compilation-next-error) |
1091 |
|
(define-key map "\M-p" 'compilation-previous-error) |
1092 |
|
(define-key map "\M-{" 'compilation-previous-file) |
1093 |
|
(define-key map "\M-}" 'compilation-next-file) |
1094 |
|
|
1095 |
(define-key map " " 'scroll-up) |
(define-key map " " 'scroll-up) |
1096 |
(define-key map "\^?" 'scroll-down) |
(define-key map "\^?" 'scroll-down) |
1097 |
(define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
(define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
1098 |
|
|
1099 |
;; Set up the menu-bar |
;; Set up the menu-bar |
1100 |
(define-key map [menu-bar compilation] |
(let ((submap (make-sparse-keymap "Compile"))) |
1101 |
(cons "Compile" (make-sparse-keymap "Compile"))) |
(define-key map [menu-bar compilation] |
1102 |
|
(cons "Compile" submap)) |
1103 |
|
(set-keymap-parent submap compilation-menu-map)) |
1104 |
(define-key map [menu-bar compilation compilation-separator2] |
(define-key map [menu-bar compilation compilation-separator2] |
1105 |
'("----" . nil)) |
'("----" . nil)) |
1106 |
(define-key map [menu-bar compilation compilation-grep] |
(define-key map [menu-bar compilation compilation-grep] |