From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: "Jan D." Newsgroups: gmane.emacs.devel Subject: Re: alarm_signal_handler is called too frequently Date: Thu, 04 Nov 2004 14:02:19 +0100 Message-ID: <418A285B.4030206@swipnet.se> References: <7E7ABFB6-2693-11D9-9BC4-000D93505B76@swipnet.se> <41813425.2010001@swipnet.se> <4181EA7E.2020309@swipnet.se> <4185FC85.70100@swipnet.se> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 8bit X-Trace: sea.gmane.org 1099573539 9374 80.91.229.6 (4 Nov 2004 13:05:39 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 4 Nov 2004 13:05:39 +0000 (UTC) Cc: rms@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Nov 04 14:05:28 2004 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CPhIu-0003E6-00 for ; Thu, 04 Nov 2004 14:05:28 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CPhR3-0000x2-A5 for ged-emacs-devel@m.gmane.org; Thu, 04 Nov 2004 08:13:53 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CPhOj-0006tv-BK for emacs-devel@gnu.org; Thu, 04 Nov 2004 08:11:29 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CPhOg-0006sq-MB for emacs-devel@gnu.org; Thu, 04 Nov 2004 08:11:27 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CPhOg-0006sW-Bk for emacs-devel@gnu.org; Thu, 04 Nov 2004 08:11:26 -0500 Original-Received: from [195.54.107.70] (helo=mxfep01.bredband.com) by monty-python.gnu.org with esmtp (Exim 4.34) id 1CPhGU-0001Jj-IA; Thu, 04 Nov 2004 08:02:59 -0500 Original-Received: from coolsville.localdomain ([83.226.180.220] [83.226.180.220]) by mxfep01.bredband.com with ESMTP id <20041104130257.VPVF4883.mxfep01.bredband.com@coolsville.localdomain>; Thu, 4 Nov 2004 14:02:57 +0100 User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.3) Gecko/20040916 X-Accept-Language: en-us, en Original-To: emacs-devel@gnu.org In-Reply-To: X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:29429 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:29429 Richard Stallman wrote: > I can't say why the do_timer argument is different, the modification was made > by you almost 2 years ago: > > Judging by the date when I made the change, I was probably looking at > bug reports saved up from the previous months. I didn't mail the > patch to anyone at the time. > > Perhaps it has to do with y-or-n-p-with-timeout. > Can that operate with a dialog? If so, it now won't work > correctly; the timeout will be ignored. We could make > the timeout work once again using some other mechanism, > I guess. I think that is the case, there was a bug report on bug-gnu-emacs about it 4 days before the checkin, http://lists.gnu.org/archive/html/bug-gnu-emacs/2002-12/msg00062.html: > From: Järneström Jonas > Subject: y-or-n-p-with-timeout fails when using dialog box input > Date: Mon, 16 Dec 2002 18:31:35 +0100 (MET) > > In GNU Emacs 20.7.1 (sparc-sun-solaris2.8, X toolkit) > of Tue Jan 16 2001 on sunray8.era-a.ericsson.se > configured using `configure --prefix=/usr/bag/emacs/20.7 > --datadir=/usr/bag/emacs/share' > > See the funs below. > When I run the first one, timeout never happens. > When I run the second one, timeout works ok. > Why dont I get the timeout when using the dialog box input method? > > Thanks, > Jonas Jarnestrom > > (defun dialog-box-timeout-never-happens () > (let* ((last-nonmenu-event nil)) > (y-or-n-p-with-timeout "prompt" 3 'timeout))) > > (defun minibuffer-timeout-works () > (let* ((foo nil)) > (y-or-n-p-with-timeout "prompt" 3 'timeout))) Jan D.