580 |
|
|
581 |
;; run compile with the default command line |
;; run compile with the default command line |
582 |
(defun recompile () |
(defun recompile () |
583 |
"Re-compile the program including the current buffer." |
"Re-compile the program including the current buffer. |
584 |
|
If this is run in a compilation-mode buffer, re-use the arguments from the |
585 |
|
original use. Otherwise, it recompiles using `compile-command'." |
586 |
(interactive) |
(interactive) |
587 |
(save-some-buffers (not compilation-ask-about-save) nil) |
(save-some-buffers (not compilation-ask-about-save) nil) |
588 |
(compile-internal (eval compile-command) "No more errors")) |
(apply 'compile-internal (or compilation-arguments |
589 |
|
`(,(eval compile-command) "No more errors")))) |
590 |
|
|
591 |
(defun grep-process-setup () |
(defun grep-process-setup () |
592 |
"Set up `compilation-exit-message-function' for `grep'." |
"Set up `compilation-exit-message-function' for `grep'." |