Re: Unresolved external _Vthrow_on_input

[Kim F. Storm]

"B. Anyos" <address@hidden> 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 <address@hidden> http://www.cua.dk