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

[Christopher Schmidt <christopher@ch.ristopher.com>]

[-- Attachment #1: Type: text/plain, Size: 204 bytes --]

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.

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: compilation-start.diff --]
[-- Type: text/x-diff, Size: 940 bytes --]

=== 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)))


[-- Attachment #3: Type: text/plain, Size: 21 bytes --]


        Christopher