From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Christopher Schmidt Newsgroups: gmane.emacs.bugs Subject: bug#12288: 24.2.50; compilation-start: Query for killing existing compilation process only if query-on-exit-flag is non-nil Date: Mon, 27 Aug 2012 15:56:31 +0100 (BST) Message-ID: <87ehms759q@ch.ristopher.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1346079443 11257 80.91.229.3 (27 Aug 2012 14:57:23 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 27 Aug 2012 14:57:23 +0000 (UTC) To: 12288@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Aug 27 16:57:24 2012 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1T60kl-0000fQ-KU for geb-bug-gnu-emacs@m.gmane.org; Mon, 27 Aug 2012 16:57:23 +0200 Original-Received: from localhost ([::1]:43966 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T60kj-0003yb-OG for geb-bug-gnu-emacs@m.gmane.org; Mon, 27 Aug 2012 10:57:21 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:47493) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T60kY-0003xs-V5 for bug-gnu-emacs@gnu.org; Mon, 27 Aug 2012 10:57:20 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T60kX-00045r-R0 for bug-gnu-emacs@gnu.org; Mon, 27 Aug 2012 10:57:10 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:42991) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T60kX-00045n-N9 for bug-gnu-emacs@gnu.org; Mon, 27 Aug 2012 10:57:09 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1T60lO-0001Os-MB for bug-gnu-emacs@gnu.org; Mon, 27 Aug 2012 10:58:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Christopher Schmidt Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 27 Aug 2012 14:58:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 12288 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.13460794715363 (code B ref -1); Mon, 27 Aug 2012 14:58:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 27 Aug 2012 14:57:51 +0000 Original-Received: from localhost ([127.0.0.1]:52537 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1T60lD-0001OR-6J for submit@debbugs.gnu.org; Mon, 27 Aug 2012 10:57:51 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:41659) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1T60lA-0001OK-9L for submit@debbugs.gnu.org; Mon, 27 Aug 2012 10:57:49 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T60kD-0003zf-Hw for submit@debbugs.gnu.org; Mon, 27 Aug 2012 10:56:55 -0400 Original-Received: from lists.gnu.org ([208.118.235.17]:53518) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T60kD-0003zQ-Eu for submit@debbugs.gnu.org; Mon, 27 Aug 2012 10:56:49 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:47283) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T60k3-0003vi-Dl for bug-gnu-emacs@gnu.org; Mon, 27 Aug 2012 10:56:49 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T60jx-0003wA-Fy for bug-gnu-emacs@gnu.org; Mon, 27 Aug 2012 10:56:39 -0400 Original-Received: from ristopher.com ([146.185.21.93]:52737 helo=saturn.ch.ristopher.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T60jx-0003vi-72 for bug-gnu-emacs@gnu.org; Mon, 27 Aug 2012 10:56:33 -0400 Original-Received: by saturn.ch.ristopher.com (Postfix, from userid 0) id 6E91420CEC; Mon, 27 Aug 2012 15:56:31 +0100 (BST) DKIM-Signature: v=1; a=rsa-sha256; c=simple/simple; d=ch.ristopher.com; s=mail; t=1346079391; bh=jiOiTC8CtHoHVSIX0D5N/sEo9r2y5UsT/xJKFink5Yw=; h=From:To:Subject:Message-ID:MIME-Version:Content-Type:Date; b=CYRbAAd9kL3sm5lZX/dxegfz81jbthGQ8rbPJEBky1NPZmHCZTrVTGWsMoAhuGtCP pA3lMZcpOjcKjNLJgmlH0QXhaOTwavEYiLt5grX3uXJDHVciyy0lnthxFQELwoG3VU ituiOD3V2mba92YUPTvIEQUAVm6zJ2ExkR3rJwhw= Mail-Followup-To: bug-gnu-emacs@gnu.org X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org 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 Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:63532 Archived-At: --=-=-= Content-Type: text/plain 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. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=compilation-start.diff === 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 + + * 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 * 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))) --=-=-= Content-Type: text/plain Christopher --=-=-=--