From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stefan Monnier Newsgroups: gmane.emacs.bugs Subject: bug#5680: 23.1; canot quit infloop by C-g Date: Fri, 05 Mar 2010 18:10:57 -0500 Message-ID: References: <874okwp09v.fsf@nagi.lyrical.homelinux.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1267831465 15458 80.91.229.12 (5 Mar 2010 23:24:25 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 5 Mar 2010 23:24:25 +0000 (UTC) Cc: 5680@debbugs.gnu.org To: ARISAWA Akihiro Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Mar 06 00:24:21 2010 connect(): Connection refused Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1NngsW-0001ci-H4 for geb-bug-gnu-emacs@m.gmane.org; Sat, 06 Mar 2010 00:24:20 +0100 Original-Received: from localhost ([127.0.0.1]:49462 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NngsV-00050k-F0 for geb-bug-gnu-emacs@m.gmane.org; Fri, 05 Mar 2010 18:24:19 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NngsP-0004xf-Bx for bug-gnu-emacs@gnu.org; Fri, 05 Mar 2010 18:24:13 -0500 Original-Received: from [140.186.70.92] (port=33238 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NngsO-0004wX-BO for bug-gnu-emacs@gnu.org; Fri, 05 Mar 2010 18:24:12 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NngsM-0001z9-Ul for bug-gnu-emacs@gnu.org; Fri, 05 Mar 2010 18:24:12 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:46618) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NngsM-0001z5-Sr for bug-gnu-emacs@gnu.org; Fri, 05 Mar 2010 18:24:10 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1Nnggc-00086g-2b; Fri, 05 Mar 2010 18:12:02 -0500 X-Loop: bug-gnu-emacs@gnu.org Resent-From: Stefan Monnier Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 05 Mar 2010 23:12:02 +0000 Resent-Message-ID: Resent-Sender: bug-gnu-emacs@gnu.org X-Emacs-PR-Message: followup 5680 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by 5680-submit@debbugs.gnu.org id=B5680.126783068031149 (code B ref 5680); Fri, 05 Mar 2010 23:12:02 +0000 Original-Received: (at 5680) by debbugs.gnu.org; 5 Mar 2010 23:11:20 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Nngfv-00086M-Oq for submit@debbugs.gnu.org; Fri, 05 Mar 2010 18:11:19 -0500 Original-Received: from tomts10-srv.bellnexxia.net ([209.226.175.54]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1Nngft-00086F-Gm for 5680@debbugs.gnu.org; Fri, 05 Mar 2010 18:11:18 -0500 Original-Received: from toip5.srvr.bell.ca ([209.226.175.88]) by tomts10-srv.bellnexxia.net (InterMail vM.5.01.06.13 201-253-122-130-113-20050324) with ESMTP id <20100305231100.COZK1958.tomts10-srv.bellnexxia.net@toip5.srvr.bell.ca> for <5680@debbugs.gnu.org>; Fri, 5 Mar 2010 18:11:00 -0500 X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AvsEAJ4dkUtGN5E3/2dsb2JhbACbSHS2WYR3BIMX Original-Received: from bas1-montreal42-1178046775.dsl.bell.ca (HELO ceviche.home) ([70.55.145.55]) by toip5.srvr.bell.ca with ESMTP; 05 Mar 2010 18:10:17 -0500 Original-Received: by ceviche.home (Postfix, from userid 20848) id ADCFBB4257; Fri, 5 Mar 2010 18:10:57 -0500 (EST) In-Reply-To: <874okwp09v.fsf@nagi.lyrical.homelinux.net> (ARISAWA Akihiro's message of "Fri, 05 Mar 2010 00:35:56 +0900") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.91 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Fri, 05 Mar 2010 18:12:02 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) 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: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:35437 Archived-At: >>>>> "ARISAWA" == ARISAWA Akihiro writes: > Hi developers, > When I evaluate following code and type C-g, I cannot quit a infinity loop. > (funcall (byte-compile (lambda () (while t)))) > In Emacs-22, I can quit it. Indeed, thanks. I've just installed the patch below which should fix this problem. Stefan === modified file 'src/bytecode.c' --- src/bytecode.c 2010-01-13 08:35:10 +0000 +++ src/bytecode.c 2010-03-05 23:01:01 +0000 @@ -393,6 +393,7 @@ Fsignal (Qquit, Qnil); \ AFTER_POTENTIAL_GC (); \ } \ + ELSE_PENDING_SIGNALS \ } while (0) === modified file 'src/lisp.h' --- src/lisp.h 2010-01-22 09:10:04 +0000 +++ src/lisp.h 2010-03-05 23:03:16 +0000 @@ -1933,22 +1933,12 @@ #ifdef SYNC_INPUT extern void process_pending_signals P_ ((void)); extern int pending_signals; - -#define QUIT \ - do { \ - if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ - { \ - Lisp_Object flag = Vquit_flag; \ - Vquit_flag = Qnil; \ - if (EQ (Vthrow_on_input, flag)) \ - Fthrow (Vthrow_on_input, Qt); \ - Fsignal (Qquit, Qnil); \ - } \ +#define ELSE_PENDING_SIGNALS \ else if (pending_signals) \ - process_pending_signals (); \ - } while (0) - + process_pending_signals (); #else /* not SYNC_INPUT */ +#define ELSE_PENDING_SIGNALS +#endif /* not SYNC_INPUT */ #define QUIT \ do { \ @@ -1960,10 +1950,9 @@ Fthrow (Vthrow_on_input, Qt); \ Fsignal (Qquit, Qnil); \ } \ + ELSE_PENDING_SIGNALS \ } while (0) -#endif /* not SYNC_INPUT */ - /* Nonzero if ought to quit now. */