[Emacs-diffs] /srv/bzr/emacs/trunk r109813: * lisp/progmodes/compile.el (compilation-always-kill): New var.

[Stefan Monnier]

------------------------------------------------------------
revno: 109813
author: Martin Blais <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-29 14:15:12 -0400
message:
  * lisp/progmodes/compile.el (compilation-always-kill): New var.
  (compilation-start): Use it.
modified:
  etc/NEWS
  lisp/ChangeLog
  lisp/progmodes/compile.el

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2012-08-29 15:11:51 +0000
+++ b/etc/NEWS  2012-08-29 18:15:12 +0000
@@ -207,6 +207,8 @@
 
 * 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

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-29 17:36:49 +0000
+++ b/lisp/ChangeLog    2012-08-29 18:15:12 +0000
@@ -1,3 +1,8 @@
+2012-08-29  Martin Blais  <address@hidden>  (tiny change)
+
+       * progmodes/compile.el (compilation-always-kill): New var.
+       (compilation-start): Use it.
+
 2012-08-29  Stefan Monnier  <address@hidden>
 
        * simple.el (read-only-mode): Move from files.el for bootstrapping.

=== modified file 'lisp/progmodes/compile.el'
--- a/lisp/progmodes/compile.el 2012-08-26 13:42:18 +0000
+++ b/lisp/progmodes/compile.el 2012-08-29 18:15:12 +0000
@@ -1503,6 +1503,13 @@
     (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 @@
       (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)))