From: storm@cua.dk (Kim F. Storm)
Cc: rms@gnu.org, emacs-devel@gnu.org
Subject: Re: Unresolved external _Vthrow_on_input
Date: Tue, 14 Dec 2004 15:09:27 +0100 [thread overview]
Message-ID: <m31xdt9dk8.fsf@kfs-l.imdomain.dk> (raw)
In-Reply-To: <41BEA31B.1070300@freemail.hu> (B. Anyos's message of "Tue, 14 Dec 2004 09:23:55 +0100")
"B. Anyos" <banyos@freemail.hu> 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 <storm@cua.dk> http://www.cua.dk
prev parent reply other threads:[~2004-12-14 14:09 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-12-14 8:23 Unresolved external _Vthrow_on_input B. Anyos
2004-12-14 14:09 ` Kim F. Storm [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m31xdt9dk8.fsf@kfs-l.imdomain.dk \
--to=storm@cua.dk \
--cc=emacs-devel@gnu.org \
--cc=rms@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.