458 |
:version "21.4") |
:version "21.4") |
459 |
|
|
460 |
(defface compilation-info-face |
(defface compilation-info-face |
461 |
'((((class color) (min-colors 16) (background light)) |
'((((class color) (min-colors 16) (background light)) |
462 |
(:foreground "Green3" :weight bold)) |
(:foreground "Green3" :weight bold)) |
463 |
(((class color) (min-colors 16) (background dark)) |
(((class color) (min-colors 16) (background dark)) |
464 |
(:foreground "Green" :weight bold)) |
(:foreground "Green" :weight bold)) |
465 |
(((class color)) (:foreground "green" :weight bold)) |
(((class color)) (:foreground "green" :weight bold)) |
466 |
(t (:weight bold))) |
(t (:weight bold))) |
789 |
original use. Otherwise, recompile using `compile-command'." |
original use. Otherwise, recompile using `compile-command'." |
790 |
(interactive) |
(interactive) |
791 |
(save-some-buffers (not compilation-ask-about-save) nil) |
(save-some-buffers (not compilation-ask-about-save) nil) |
792 |
(let ((default-directory (or compilation-directory default-directory))) |
(let ((default-directory |
793 |
|
(or (and (not (eq major-mode (nth 1 compilation-arguments))) |
794 |
|
compilation-directory) |
795 |
|
default-directory))) |
796 |
(apply 'compilation-start (or compilation-arguments |
(apply 'compilation-start (or compilation-arguments |
797 |
`(,(eval compile-command)))))) |
`(,(eval compile-command)))))) |
798 |
|
|
819 |
(funcall name-function mode-name)) |
(funcall name-function mode-name)) |
820 |
(compilation-buffer-name-function |
(compilation-buffer-name-function |
821 |
(funcall compilation-buffer-name-function mode-name)) |
(funcall compilation-buffer-name-function mode-name)) |
822 |
((and (eq major-mode 'compilation-mode) |
((eq major-mode (nth 1 compilation-arguments)) |
|
(equal mode-name (nth 2 compilation-arguments))) |
|
823 |
(buffer-name)) |
(buffer-name)) |
824 |
(t |
(t |
825 |
(concat "*" (downcase mode-name) "*")))) |
(concat "*" (downcase mode-name) "*")))) |
1524 |
|
|
1525 |
(defun compilation-goto-locus (msg mk end-mk) |
(defun compilation-goto-locus (msg mk end-mk) |
1526 |
"Jump to an error corresponding to MSG at MK. |
"Jump to an error corresponding to MSG at MK. |
1527 |
All arguments are markers. If END-MK is non nil, mark is set there." |
All arguments are markers. If END-MK is non-nil, mark is set there." |
1528 |
(if (eq (window-buffer (selected-window)) |
(if (eq (window-buffer (selected-window)) |
1529 |
(marker-buffer msg)) |
(marker-buffer msg)) |
1530 |
;; If the compilation buffer window is selected, |
;; If the compilation buffer window is selected, |