Mercurial > emacs
changeset 24375:2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
(syms_of_keyboard): Initialize them.
(lispy_user_signals): New variable.
(make_lispy_event): Handle user_signal event type.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Mon, 22 Feb 1999 10:05:43 +0000 |
| parents | 80d0a3294c24 |
| children | c0b139a546c0 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Mon Feb 22 10:04:28 1999 +0000 +++ b/src/keyboard.c Mon Feb 22 10:05:43 1999 +0000 @@ -3954,6 +3954,14 @@ &Qup, &Qdown, }; +/* User signal events. */ +Lisp_Object Qusr1_signal, Qusr2_signal; + +Lisp_Object *lispy_user_signals[] = +{ + &Qusr1_signal, &Qusr2_signal +}; + /* A vector, indexed by button number, giving the down-going location of currently depressed buttons, both scroll bar and non-scroll bar. @@ -4518,6 +4526,10 @@ return XCONS (event->frame_or_window)->cdr; #endif + case user_signal: + /* A user signal. */ + return *lispy_user_signals[event->code]; + /* The 'kind' field of the event is something we don't recognize. */ default: abort (); @@ -8977,6 +8989,11 @@ Qdrag_n_drop = intern ("drag-n-drop"); staticpro (&Qdrag_n_drop); + Qusr1_signal = intern ("usr1-signal"); + staticpro (&Qusr1_signal); + Qusr2_signal = intern ("usr2-signal"); + staticpro (&Qusr2_signal); + Qmenu_enable = intern ("menu-enable"); staticpro (&Qmenu_enable); Qmenu_alias = intern ("menu-alias");