[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
compilation-ask-about-kill
From: |
Alexander Klimov |
Subject: |
compilation-ask-about-kill |
Date: |
Thu, 4 May 2006 13:20:58 +0300 (IDT) |
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
- compilation-ask-about-kill,
Alexander Klimov <=