From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.bugs Subject: Re: compile.el: kill always anyway Date: Fri, 30 Jan 2004 15:55:04 -0700 Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: <401AE0C8.8060705@yahoo.com> References: <40156A8E.1030204@yahoo.com> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1075504123 17234 80.91.224.253 (30 Jan 2004 23:08:43 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 30 Jan 2004 23:08:43 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Jan 31 00:08:33 2004 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AmhkX-0002zp-00 for ; Sat, 31 Jan 2004 00:08:33 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.24) id 1Amhh0-0008CM-4M for geb-bug-gnu-emacs@m.gmane.org; Fri, 30 Jan 2004 18:04:54 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.24) id 1Amhgx-0008C5-Qp for bug-gnu-emacs@prep.ai.mit.edu; Fri, 30 Jan 2004 18:04:51 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.24) id 1AmhgR-00084U-Ss for bug-gnu-emacs@prep.ai.mit.edu; Fri, 30 Jan 2004 18:04:50 -0500 Original-Received: from [199.232.41.8] (helo=mx20.gnu.org) by monty-python.gnu.org with esmtp (TLSv1:DES-CBC3-SHA:168) (Exim 4.24) id 1AmhgR-00084M-L6 for bug-gnu-emacs@prep.ai.mit.edu; Fri, 30 Jan 2004 18:04:19 -0500 Original-Received: from [132.239.1.60] (helo=mailbox8.ucsd.edu) by mx20.gnu.org with esmtp (Exim 4.24) id 1AmhXc-00011f-6j for bug-gnu-emacs@prep.ai.mit.edu; Fri, 30 Jan 2004 17:55:12 -0500 Original-Received: from mail.fu-berlin.de (mail.fu-berlin.de [160.45.11.165]) by mailbox8.ucsd.edu (8.12.10/8.12.9) with ESMTP id i0UMsxDW080247 for ; Fri, 30 Jan 2004 14:54:59 -0800 (PST) Original-Received: by mail.fu-berlin.de (Smail3.2.0.98) from Curry.ZEDAT.FU-Berlin.DE (160.45.10.36) with esmtp id ; Fri, 30 Jan 2004 23:54:58 +0100 (MET) Original-Received: by Curry.ZEDAT.FU-Berlin.DE (Smail3.2.0.98) from news.fu-berlin.de with bsmtp id ; Fri, 30 Jan 2004 23:54:58 +0100 (MET) Original-To: gnu-emacs-bug@moderators.isc.org Original-Path: 170.207.51.80!not-for-mail Original-Newsgroups: gnu.emacs.bug Original-Lines: 49 X-Orig-NNTP-Posting-Host: 170.207.51.80 X-Orig-X-Trace: news.uni-berlin.de 1075503298 28728830 170.207.51.80 ([82742]) User-Agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 X-Accept-Language: en-us X-Spamscanner: mailbox8.ucsd.edu (v1.4 Oct 30 2003 22:20:52, 1.4/5.0 2.60) X-MailScanner: PASSED (v1.2.8 66103 i0UMsxDW080247 mailbox8.ucsd.edu) X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:6834 Dan Jacobson wrote: >>>I see there is no option to turn this question off: >>>(yes-or-no-p >>>(format "A %s process is running; kill it? " > > K> Good. > > Bad, because one might be rapid prototyping (compile "sleep 55555"), > and would like emacs to kill each former compile without asking, as > whih PID to kill only emacs knows best. Sigh. *** emacs-21.3/lisp/progmodes/compile.el.orig Fri Jan 17 06:45:11 2003 --- emacs-21.3/lisp/progmodes/compile.el Fri Jan 30 15:51:16 2004 *************** *** 706,711 **** --- 706,719 ---- :version "20.3" :group 'compilation) + (defcustom compile-kill-running-process nil + "*If non-nil, \\[compile] kills a running compilation process without asking. + + This also affects \\[recompile], \\[grep], \\[revert-buffer] in a + compilation buffer, and any other commands that call `compile-internal'." + :type 'boolean + :group 'compilation) + (defun compile-internal (command error-message &optional name-of-mode parser error-regexp-alist name-function *************** *** 744,749 **** --- 752,758 ---- (let ((comp-proc (get-buffer-process (current-buffer)))) (if comp-proc (if (or (not (eq (process-status comp-proc) 'run)) + compile-kill-running-process (yes-or-no-p (format "A %s process is running; kill it? " name-of-mode))) -- Kevin Rodgers