Mercurial > emacs
changeset 43814:8090818ccd53
Added Emacs event save_session_event.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Sun, 10 Mar 2002 16:16:38 +0000 |
| parents | 7c1c9baea70f |
| children | 1a121be11dab |
| files | src/keyboard.c |
| diffstat | 1 files changed, 16 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Sun Mar 10 16:15:48 2002 +0000 +++ b/src/keyboard.c Sun Mar 10 16:16:38 2002 +0000 @@ -554,6 +554,8 @@ Lisp_Object Qlanguage_change; #endif Lisp_Object Qdrag_n_drop; +Lisp_Object Qsave_session; + /* Lisp_Object Qmouse_movement; - also an event header */ /* Properties of event headers. */ @@ -3731,6 +3733,11 @@ kbd_fetch_ptr = event + 1; } #endif + else if (event->kind == save_session_event) + { + obj = Fcons (Qsave_session, Qnil); + kbd_fetch_ptr = event + 1; + } /* Just discard these, by returning nil. With MULTI_KBOARD, these events are used as placeholders when we need to randomly delete events from the queue. @@ -5395,6 +5402,9 @@ /* A user signal. */ return *lispy_user_signals[event->code]; + case save_session_event: + return Qsave_session; + /* The 'kind' field of the event is something we don't recognize. */ default: abort (); @@ -10357,6 +10367,9 @@ Qdrag_n_drop = intern ("drag-n-drop"); staticpro (&Qdrag_n_drop); + Qsave_session = intern ("save-session"); + staticpro(&Qsave_session); + Qusr1_signal = intern ("usr1-signal"); staticpro (&Qusr1_signal); Qusr2_signal = intern ("usr2-signal"); @@ -10941,4 +10954,6 @@ "ignore-event"); initial_define_lispy_key (Vspecial_event_map, "make-frame-visible", "ignore-event"); -} + initial_define_lispy_key (Vspecial_event_map, "save-session", + "handle-save-session"); +}