diff options
| -rw-r--r-- | lisp/progmodes/compile.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 2ab31cb764e..7e046c3ee03 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -580,10 +580,13 @@ to a function that generates a unique name." ;; run compile with the default command line (defun recompile () - "Re-compile the program including the current buffer." + "Re-compile the program including the current buffer. +If this is run in a compilation-mode buffer, re-use the arguments from the +original use. Otherwise, it recompiles using `compile-command'." (interactive) (save-some-buffers (not compilation-ask-about-save) nil) - (compile-internal (eval compile-command) "No more errors")) + (apply 'compile-internal (or compilation-arguments + `(,(eval compile-command) "No more errors")))) (defun grep-process-setup () "Set up `compilation-exit-message-function' for `grep'." |