compilation-ask-about-kill

[Alexander Klimov <alserkli@inbox.ru>]

Hi.

It would be nice to allow recompilation with a single key stroke even
if the previous compilation hangs. With the following patch the user
can skip

 `A %... process is running; kill it?'

if he set `compilation-ask-about-kill' to nil.

--- compile.el.old      2006-05-04 13:07:12.685252800 +0200
+++ compile.el  2006-05-04 13:09:52.620011800 +0200
@@ -429,6 +429,13 @@
   :group 'compilation)

 ;;;###autoload
+(defcustom compilation-ask-about-kill t
+  "*Non-nil means \\[compile] asks permission to kill the running
compilation.
+Otherwise, it kills the previous compilation process  without
asking."
+  :type 'boolean
+  :group 'compilation)
+
+;;;###autoload
 (defcustom compilation-search-path '(nil)
   "*List of directories to search for source files named in error
messages.
 Elements should be directory names, not file names of directories.
@@ -970,9 +977,10 @@
       (let ((comp-proc (get-buffer-process (current-buffer))))
        (if comp-proc
            (if (or (not (eq (process-status comp-proc) 'run))
-                   (yes-or-no-p
-                    (format "A %s process is running; kill it? "
-                            name-of-mode)))
+                (or (not compilation-ask-about-kill)
+                    (yes-or-no-p
+                     (format "A %s process is running; kill it? "
+                             name-of-mode))))
                (condition-case ()
                    (progn
                      (interrupt-process comp-proc)

-- 
Regards,
ASK