210 |
|
|
211 |
(gnu |
(gnu |
212 |
"^\\(?:[[:alpha:]][-[:alnum:].]+: ?\\)?\ |
"^\\(?:[[:alpha:]][-[:alnum:].]+: ?\\)?\ |
213 |
\\([/.]*[a-zA-Z]:?[^ \t\n:]*\\): ?\ |
\\([/.]*[a-zA-Z]:?[^ \t\n:]*\\|{standard input}\\): ?\ |
214 |
\\([0-9]+\\)\\([.:]?\\)\\([0-9]+\\)?\ |
\\([0-9]+\\)\\([.:]?\\)\\([0-9]+\\)?\ |
215 |
\\(?:-\\(?:\\([0-9]+\\)\\3\\)?\\.?\\([0-9]+\\)?\\)?:\ |
\\(?:-\\(?:\\([0-9]+\\)\\3\\)?\\.?\\([0-9]+\\)?\\)?:\ |
216 |
\\(?: *\\(\\(?:Future\\|Runtime\\)?[Ww]arning\\|W:\\)\\|\ |
\\(?: *\\(\\(?:Future\\|Runtime\\)?[Ww]arning\\|W:\\)\\|\ |
242 |
: \\(?:error\\|warnin\\(g\\)\\) C[0-9]+:" 1 2 nil (3)) |
: \\(?:error\\|warnin\\(g\\)\\) C[0-9]+:" 1 2 nil (3)) |
243 |
|
|
244 |
(oracle |
(oracle |
245 |
"^Semantic error at line \\([0-9]+\\), column \\([0-9]+\\), file \\(.*\\):$" |
"^\\(?:Semantic error\\|Error\\|PCC-[0-9]+:\\).* line \\([0-9]+\\)\ |
246 |
|
\\(?:\\(?:,\\| at\\)? column \\([0-9]+\\)\\)?\ |
247 |
|
\\(?:,\\| in\\| of\\)? file \\(.*?\\):?$" |
248 |
3 1 2) |
3 1 2) |
249 |
|
|
250 |
(perl |
(perl |
990 |
;; If window is alone in its frame, aside from a minibuffer, |
;; If window is alone in its frame, aside from a minibuffer, |
991 |
;; don't change its height. |
;; don't change its height. |
992 |
(not (eq window (frame-root-window (window-frame window)))) |
(not (eq window (frame-root-window (window-frame window)))) |
993 |
;; This save-current-buffer prevents us from changing the current |
;; Stef said that doing the saves in this order is safer: |
994 |
;; buffer, which might not be the same as the selected window's buffer. |
(save-excursion |
|
(save-current-buffer |
|
995 |
(save-selected-window |
(save-selected-window |
996 |
(save-excursion |
(select-window window) |
997 |
(select-window window) |
(enlarge-window (- height (window-height)))))))) |
|
(enlarge-window (- height (window-height))))))))) |
|
998 |
|
|
999 |
(defvar compilation-menu-map |
(defvar compilation-menu-map |
1000 |
(let ((map (make-sparse-keymap "Errors"))) |
(let ((map (make-sparse-keymap "Errors"))) |