(kbd_buffer_get_event): Translate them to lispy events.

(head_table): Initialize those new symbols appropriately.

diff --git a/src/keyboard.c b/src/keyboard.c
index a873c1c7df616466e86f6799871a4f6c9bab0c8b..35e48548c6a3dcb057fe9c658cc73aaad317c668 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -402,6 +402,8 @@ Lisp_Object Qmouse_movement;
 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 @@ kbd_buffer_get_event ()
        {
          /* 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 @@ struct event_head head_table[] = {
   &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 ()