bug#12288: 24.2.50; compilation-start: Query for killing existing compilation process only if query-on-exit-flag is non-nil

[Christopher Schmidt]

Severity: wishlist

I find it annoying that compilation-start always asks before killing
the previous (running) compilation process.  I think
process-query-on-exit-flag should be taken into account here.

=== modified file 'lisp/ChangeLog'
--- lisp/ChangeLog      2012-08-27 09:05:55 +0000
+++ lisp/ChangeLog      2012-08-27 14:48:56 +0000
@@ -1,3 +1,9 @@
+2012-08-27  Christopher Schmidt  <christopher@ch.ristopher.com>
+
+       * progmodes/compile.el (compilation-start): Query for killing
+       existing compilation process only if query-on-exit-flag is non-nil
+       (Bug#).
+
 2012-08-27  Drew Adams  <drew.adams@oracle.com>
 
        * dired.el (dired-pop-to-buffer): Make window start at beginning

=== modified file 'lisp/progmodes/compile.el'
--- lisp/progmodes/compile.el   2012-08-26 13:42:18 +0000
+++ lisp/progmodes/compile.el   2012-08-27 14:47:23 +0000
@@ -1537,6 +1537,7 @@
       (let ((comp-proc (get-buffer-process (current-buffer))))
        (if comp-proc
            (if (or (not (eq (process-status comp-proc) 'run))
+                   (not (process-query-on-exit-flag comp-proc))
                    (yes-or-no-p
                     (format "A %s process is running; kill it? "
                             name-of-mode)))

        Christopher