From b809d9e75e1f8456d04daa305d8a1ea710ac1b2a Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Tue, 19 Dec 2006 15:37:20 +0000 Subject: [PATCH] (kbd_buffer_store_event_hold): Undo 2006-12-04 change. (make_lispy_event): Don't generate Qsignal prefix for code 0. Abort if signal code is unknown. (store_user_signal_events): Don't make Qsignal prefix (code 0). (Qsignal): Move declaration back to process.c. (syms_of_keyboard): Don't intern or staticpro it here. --- src/keyboard.c | 28 +++++++--------------------- 1 file changed, 7 insertions(+), 21 deletions(-) diff --git a/src/keyboard.c b/src/keyboard.c index b2d84dfba32..6e99af67cd9 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -3799,8 +3799,7 @@ kbd_buffer_store_event_hold (event, hold_quit) if (!NILP (Vthrow_on_input) && event->kind != FOCUS_IN_EVENT && event->kind != HELP_EVENT - && event->kind != DEICONIFY_EVENT - && !(event->kind == USER_SIGNAL_EVENT && event->code == 0)) + && event->kind != DEICONIFY_EVENT) { Vquit_flag = Vthrow_on_input; /* If we're inside a function that wants immediate quits, @@ -5088,9 +5087,6 @@ Lisp_Object *scroll_bar_parts[] = { &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll, &Qratio }; -/* User signal events. */ -Lisp_Object Qsignal; - /* A vector, indexed by button number, giving the down-going location of currently depressed buttons, both scroll bar and non-scroll bar. @@ -5969,17 +5965,12 @@ make_lispy_event (event) case USER_SIGNAL_EVENT: /* A user signal. */ - if (event->code == 0) - return Qsignal; - else - { - char *name = find_user_signal_name (event->code); - - if (name) - return intern (name); - else - return make_number (event->code); - } + { + char *name = find_user_signal_name (event->code); + if (!name) + abort (); + return intern (name); + } case SAVE_SESSION_EVENT: return Qsave_session; @@ -7156,8 +7147,6 @@ store_user_signal_events () mask = sigblock (sigmask (p->sig)); do { - buf.code = 0; - kbd_buffer_store_event (&buf); buf.code = p->sig; kbd_buffer_store_event (&buf); p->npending--; @@ -11183,9 +11172,6 @@ syms_of_keyboard () staticpro (&Qmac_apple_event); #endif - Qsignal = intern ("signal"); - staticpro (&Qsignal); - Qmenu_enable = intern ("menu-enable"); staticpro (&Qmenu_enable); Qmenu_alias = intern ("menu-alias"); -- 2.39.2