From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 16 Jun 1995 22:19:27 +0000 (+0000)
Subject: [MULTI_FRAME] (Fignore_event): New function.
X-Git-Tag: emacs-19.34~3576
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c2127876e8dcf25061c69dc48ef6e87f9c36eb6;p=emacs.git

[MULTI_FRAME] (Fignore_event): New function.
[MULTI_FRAME] (keys_of_frame): Bind iconify-frame and
make-frame-visible to it.
---

diff --git a/src/frame.c b/src/frame.c
index b2c360361bf..ee7b64eded0 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -531,6 +531,14 @@ to that frame.")
   return do_switch_frame (frame, no_enter, 0);
 }
 
+DEFUN ("ignore-event", Fignore_event, Signore_event, 0, 0, "",
+  "Do nothing, but preserve any prefix argument already specified.\n\
+This is a suitable binding for iconify-frame and make-frame-visible.")
+     ()
+{
+  current_kboard->Vprefix_arg = Vcurrent_prefix_arg;
+  return Qnil;
+}
 
 DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0,
   "Return the frame that is now selected.")
@@ -1922,6 +1930,7 @@ The `menu-bar-lines' element of the list controls whether new frames\n\
   defsubr (&Sframe_live_p);
   defsubr (&Smake_terminal_frame);
   defsubr (&Shandle_switch_frame);
+  defsubr (&Signore_event);
   defsubr (&Sselect_frame);
   defsubr (&Sselected_frame);
   defsubr (&Swindow_frame);
@@ -1966,8 +1975,8 @@ keys_of_frame ()
 {
   initial_define_lispy_key (global_map, "switch-frame", "handle-switch-frame");
   initial_define_lispy_key (global_map, "delete-frame", "handle-delete-frame");
-  initial_define_lispy_key (global_map, "iconify-frame", "ignore");
-  initial_define_lispy_key (global_map, "make-frame-visible", "ignore");
+  initial_define_lispy_key (global_map, "iconify-frame", "ignore-event");
+  initial_define_lispy_key (global_map, "make-frame-visible", "ignore-event");
 }
 
 #else /* not MULTI_FRAME */