(kbd_buffer_get_event): Translate them to lispy events.

(head_table): Initialize those new symbols appropriately.

1 files changed, 19 insertions, 1 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index a873c1c7df6..35e48548c6a 100644
--- 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 ()