Mercurial > emacs
changeset 9729:75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
(head_table): Initialize those new symbols appropriately.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 27 Oct 1994 21:13:33 +0000 |
| parents | 5fdefb7f9921 |
| children | a7d3e357a3f3 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 19 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.c Thu Oct 27 21:09:39 1994 +0000 +++ b/src/keyboard.c Thu Oct 27 21:13:33 1994 +0000 @@ -402,6 +402,8 @@ Lisp_Object Qscroll_bar_movement; Lisp_Object Qswitch_frame; Lisp_Object Qdelete_frame; +Lisp_Object Qiconify_frame; +Lisp_Object Qmake_frame_visible; /* Symbols to denote kinds of events. */ Lisp_Object Qfunction_key; @@ -2185,7 +2187,21 @@ { /* Make an event (delete-frame (FRAME)). */ obj = Fcons (event->frame_or_window, Qnil); - obj = Fcons (intern ("delete-frame"), Fcons (obj, Qnil)); + obj = Fcons (Qdelete_frame, Fcons (obj, Qnil)); + kbd_fetch_ptr = event + 1; + } + else if (event->kind == iconify_event) + { + /* Make an event (iconify-frame (FRAME)). */ + obj = Fcons (event->frame_or_window, Qnil); + obj = Fcons (Qiconify_frame, Fcons (obj, Qnil)); + kbd_fetch_ptr = event + 1; + } + else if (event->kind == deiconify_event) + { + /* Make an event (make-frame-visible (FRAME)). */ + obj = Fcons (event->frame_or_window, Qnil); + obj = Fcons (Qmake_frame_visible, Fcons (obj, Qnil)); kbd_fetch_ptr = event + 1; } #endif @@ -6001,6 +6017,8 @@ &Qscroll_bar_movement, "scroll-bar-movement", &Qmouse_movement, &Qswitch_frame, "switch-frame", &Qswitch_frame, &Qdelete_frame, "delete-frame", &Qdelete_frame, + &Qiconify_frame, "iconify-frame", &Qiconify_frame, + &Qmake_frame_visible, "make-frame-visible", &Qmake_frame_visible, }; syms_of_keyboard ()