Commit f0019ede authored by Martin Blais's avatar Martin Blais Committed by Stefan Monnier
Browse files

* lisp/progmodes/compile.el (compilation-always-kill): New var.

(compilation-start): Use it.
parent af070a1c
......@@ -207,6 +207,8 @@ It copies the region-rectangle as the last rectangle kill.
* Changes in Specialized Modes and Packages in Emacs 24.3
** Compilation has a new `compilation-always-kill' configuration variable.
** Term changes
The variables `term-default-fg-color' and `term-default-bg-color' are
......
2012-08-29 Martin Blais <blais@furius.ca> (tiny change)
* progmodes/compile.el (compilation-always-kill): New var.
(compilation-start): Use it.
2012-08-29 Stefan Monnier <monnier@iro.umontreal.ca>
 
* simple.el (read-only-mode): Move from files.el for bootstrapping.
......
......@@ -1503,6 +1503,13 @@ Otherwise, construct a buffer name from NAME-OF-MODE."
(compilation-start command nil name-function highlight-regexp)))
(make-obsolete 'compile-internal 'compilation-start "22.1")
(defcustom compilation-always-kill nil
"If nil, ask to kill compilation. If 't, always kill an
incomplete compilation before starting a new one."
:type 'boolean
:version "24.3"
:group 'compilation)
;;;###autoload
(defun compilation-start (command &optional mode name-function highlight-regexp)
"Run compilation command COMMAND (low level interface).
......@@ -1537,6 +1544,7 @@ Returns the compilation buffer created."
(let ((comp-proc (get-buffer-process (current-buffer))))
(if comp-proc
(if (or (not (eq (process-status comp-proc) 'run))
compilation-always-kill
(yes-or-no-p
(format "A %s process is running; kill it? "
name-of-mode)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment