diff options
| author | Kim F. Storm | 2006-12-19 15:37:20 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-12-19 15:37:20 +0000 |
| commit | b809d9e75e1f8456d04daa305d8a1ea710ac1b2a (patch) | |
| tree | f481cb9d12a39a7699725b1643902b418133c07a | |
| parent | 71b28d05887e2daf706a63c9d34891615de5f3df (diff) | |
| download | emacs-b809d9e75e1f8456d04daa305d8a1ea710ac1b2a.tar.gz emacs-b809d9e75e1f8456d04daa305d8a1ea710ac1b2a.zip | |
(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.
| -rw-r--r-- | src/keyboard.c | 28 |
1 files 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) | |||
| 3799 | if (!NILP (Vthrow_on_input) | 3799 | if (!NILP (Vthrow_on_input) |
| 3800 | && event->kind != FOCUS_IN_EVENT | 3800 | && event->kind != FOCUS_IN_EVENT |
| 3801 | && event->kind != HELP_EVENT | 3801 | && event->kind != HELP_EVENT |
| 3802 | && event->kind != DEICONIFY_EVENT | 3802 | && event->kind != DEICONIFY_EVENT) |
| 3803 | && !(event->kind == USER_SIGNAL_EVENT && event->code == 0)) | ||
| 3804 | { | 3803 | { |
| 3805 | Vquit_flag = Vthrow_on_input; | 3804 | Vquit_flag = Vthrow_on_input; |
| 3806 | /* If we're inside a function that wants immediate quits, | 3805 | /* If we're inside a function that wants immediate quits, |
| @@ -5088,9 +5087,6 @@ Lisp_Object *scroll_bar_parts[] = { | |||
| 5088 | &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll, &Qratio | 5087 | &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll, &Qratio |
| 5089 | }; | 5088 | }; |
| 5090 | 5089 | ||
| 5091 | /* User signal events. */ | ||
| 5092 | Lisp_Object Qsignal; | ||
| 5093 | |||
| 5094 | /* A vector, indexed by button number, giving the down-going location | 5090 | /* A vector, indexed by button number, giving the down-going location |
| 5095 | of currently depressed buttons, both scroll bar and non-scroll bar. | 5091 | of currently depressed buttons, both scroll bar and non-scroll bar. |
| 5096 | 5092 | ||
| @@ -5969,17 +5965,12 @@ make_lispy_event (event) | |||
| 5969 | 5965 | ||
| 5970 | case USER_SIGNAL_EVENT: | 5966 | case USER_SIGNAL_EVENT: |
| 5971 | /* A user signal. */ | 5967 | /* A user signal. */ |
| 5972 | if (event->code == 0) | 5968 | { |
| 5973 | return Qsignal; | 5969 | char *name = find_user_signal_name (event->code); |
| 5974 | else | 5970 | if (!name) |
| 5975 | { | 5971 | abort (); |
| 5976 | char *name = find_user_signal_name (event->code); | 5972 | return intern (name); |
| 5977 | 5973 | } | |
| 5978 | if (name) | ||
| 5979 | return intern (name); | ||
| 5980 | else | ||
| 5981 | return make_number (event->code); | ||
| 5982 | } | ||
| 5983 | 5974 | ||
| 5984 | case SAVE_SESSION_EVENT: | 5975 | case SAVE_SESSION_EVENT: |
| 5985 | return Qsave_session; | 5976 | return Qsave_session; |
| @@ -7156,8 +7147,6 @@ store_user_signal_events () | |||
| 7156 | mask = sigblock (sigmask (p->sig)); | 7147 | mask = sigblock (sigmask (p->sig)); |
| 7157 | do | 7148 | do |
| 7158 | { | 7149 | { |
| 7159 | buf.code = 0; | ||
| 7160 | kbd_buffer_store_event (&buf); | ||
| 7161 | buf.code = p->sig; | 7150 | buf.code = p->sig; |
| 7162 | kbd_buffer_store_event (&buf); | 7151 | kbd_buffer_store_event (&buf); |
| 7163 | p->npending--; | 7152 | p->npending--; |
| @@ -11183,9 +11172,6 @@ syms_of_keyboard () | |||
| 11183 | staticpro (&Qmac_apple_event); | 11172 | staticpro (&Qmac_apple_event); |
| 11184 | #endif | 11173 | #endif |
| 11185 | 11174 | ||
| 11186 | Qsignal = intern ("signal"); | ||
| 11187 | staticpro (&Qsignal); | ||
| 11188 | |||
| 11189 | Qmenu_enable = intern ("menu-enable"); | 11175 | Qmenu_enable = intern ("menu-enable"); |
| 11190 | staticpro (&Qmenu_enable); | 11176 | staticpro (&Qmenu_enable); |
| 11191 | Qmenu_alias = intern ("menu-alias"); | 11177 | Qmenu_alias = intern ("menu-alias"); |