449 |
(defcustom compilation-disable-input nil |
(defcustom compilation-disable-input nil |
450 |
"*If non-nil, send end-of-file as compilation process input. |
"*If non-nil, send end-of-file as compilation process input. |
451 |
This only affects platforms that support asynchronous processes (see |
This only affects platforms that support asynchronous processes (see |
452 |
start-process); synchronous compilation processes never accept input." |
`start-process'); synchronous compilation processes never accept input." |
453 |
:type 'boolean |
:type 'boolean |
454 |
:group 'compilation |
:group 'compilation |
455 |
:version "22.1") |
:version "22.1") |
1228 |
(defmacro define-compilation-mode (mode name doc &rest body) |
(defmacro define-compilation-mode (mode name doc &rest body) |
1229 |
"This is like `define-derived-mode' without the PARENT argument. |
"This is like `define-derived-mode' without the PARENT argument. |
1230 |
The parent is always `compilation-mode' and the customizable `compilation-...' |
The parent is always `compilation-mode' and the customizable `compilation-...' |
1231 |
variables are also set from the name of the mode you have chosen, by replacing |
variables are also set from the name of the mode you have chosen, |
1232 |
the fist word, e.g `compilation-scroll-output' from `grep-scroll-output' if that |
by replacing the first word, e.g `compilation-scroll-output' from |
1233 |
variable exists." |
`grep-scroll-output' if that variable exists." |
1234 |
(let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name mode)))) |
(let ((mode-name (replace-regexp-in-string "-mode\\'" "" (symbol-name mode)))) |
1235 |
`(define-derived-mode ,mode compilation-mode ,name |
`(define-derived-mode ,mode compilation-mode ,name |
1236 |
,doc |
,doc |
1509 |
(let ((buffer (compilation-find-buffer))) |
(let ((buffer (compilation-find-buffer))) |
1510 |
(if (get-buffer-process buffer) |
(if (get-buffer-process buffer) |
1511 |
(interrupt-process (get-buffer-process buffer)) |
(interrupt-process (get-buffer-process buffer)) |
1512 |
(error "The compilation process is not running")))) |
(error "The %s process is not running" (downcase mode-name))))) |
1513 |
|
|
1514 |
(defalias 'compile-mouse-goto-error 'compile-goto-error) |
(defalias 'compile-mouse-goto-error 'compile-goto-error) |
1515 |
|
|
1754 |
marker) |
marker) |
1755 |
(let ((name (expand-file-name |
(let ((name (expand-file-name |
1756 |
(read-file-name |
(read-file-name |
1757 |
(format "Find this error in: (default %s) " |
(format "Find this %s in: (default %s) " |
1758 |
filename) |
compilation-error filename) |
1759 |
dir filename t)))) |
dir filename t)))) |
1760 |
(if (file-directory-p name) |
(if (file-directory-p name) |
1761 |
(setq name (expand-file-name filename name))) |
(setq name (expand-file-name filename name))) |