From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: storm@cua.dk (Kim F. Storm) Newsgroups: gmane.emacs.devel Subject: Re: Unresolved external _Vthrow_on_input Date: Tue, 14 Dec 2004 15:09:27 +0100 Message-ID: References: <41BEA31B.1070300@freemail.hu> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1103033857 17953 80.91.229.6 (14 Dec 2004 14:17:37 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 14 Dec 2004 14:17:37 +0000 (UTC) Cc: rms@gnu.org, emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Dec 14 15:17:29 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 1CeDUW-00084e-00 for ; Tue, 14 Dec 2004 15:17:29 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CeDed-0008DK-Sw for ged-emacs-devel@m.gmane.org; Tue, 14 Dec 2004 09:27:56 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.33) id 1CeDe5-0008CM-SO for emacs-devel@gnu.org; Tue, 14 Dec 2004 09:27:21 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.33) id 1CeDe1-00089c-0K for emacs-devel@gnu.org; Tue, 14 Dec 2004 09:27:18 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.33) id 1CeDe0-00088N-LV for emacs-devel@gnu.org; Tue, 14 Dec 2004 09:27:16 -0500 Original-Received: from [212.88.64.25] (helo=mail-relay.sonofon.dk) by monty-python.gnu.org with smtp (Exim 4.34) id 1CeDSh-0006wv-On for emacs-devel@gnu.org; Tue, 14 Dec 2004 09:15:36 -0500 Original-Received: (qmail 94229 invoked from network); 14 Dec 2004 14:08:53 -0000 Original-Received: from unknown (HELO kfs-l.imdomain.dk.cua.dk) (213.83.150.2) by 0 with SMTP; 14 Dec 2004 14:08:53 -0000 Original-To: "B. Anyos" In-Reply-To: <41BEA31B.1070300@freemail.hu> (B. Anyos's message of "Tue, 14 Dec 2004 09:23:55 +0100") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux) 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:31113 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:31113 "B. Anyos" writes: > Hi, > > Today CVS emacs doesn't link, because it expects _Vthrow_on_input > symbol. From the Changelog it seems that it has been added > yesterday by 'rms'. > 3 files have been changed, however it seems that keyboard.c > was not checked in, where the variable is defined, hece the > linking error. > > Would you please merge in your changes ? Here is a patch you can use until Richard checks in his changes: Index: src/keyboard.c =================================================================== RCS file: /cvsroot/emacs/emacs/src/keyboard.c,v retrieving revision 1.801 diff -u -r1.801 keyboard.c --- src/keyboard.c 11 Dec 2004 23:43:21 -0000 1.801 +++ src/keyboard.c 14 Dec 2004 14:11:16 -0000 @@ -3580,6 +3580,9 @@ } #endif + +Lisp_Object Vthrow_on_input; + /* Store an event obtained at interrupt level into kbd_buffer, fifo */ void @@ -3705,6 +3708,14 @@ *kbd_store_ptr = *event; ++kbd_store_ptr; } + + /* If we're in a section that requested to be interrupted as soon + as input comes, then set quit-flag to cause an interrupt. */ + if (!NILP (Vthrow_on_input) + && event->kind != FOCUS_IN_EVENT + && event->kind != HELP_EVENT + && event->kind != DEICONIFY_EVENT) + Vquit_flag = Vthrow_on_input; } @@ -11377,6 +11388,12 @@ doc: /* *How long to display an echo-area message when the minibuffer is active. If the value is not a number, such messages don't time out. */); Vminibuffer_message_timeout = make_number (2); + + DEFVAR_LISP ("throw-on-input", &Vthrow_on_input, + doc: /* If non-nil, any keyboard input throws to this symbol. +The value of that variable is passed to `quit-flag' and later causes a +peculiar kind of quitting. */); + Vthrow_on_input = Qnil; } void -- Kim F. Storm http://www.cua.dk