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