diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-06-16 22:19:27 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-06-16 22:19:27 +0000 |
| commit | bdd0aaa100adc2f59e32f9d95a3ca322de63755a (patch) | |
| tree | a26c2dc40b4b9092d9920b55f15b88cbcc703c48 /src/frame.c | |
| parent | 7b32ce43068ca92036d598a2e3576a9b39ca6289 (diff) | |
| download | emacs-bdd0aaa100adc2f59e32f9d95a3ca322de63755a.tar.gz | |
[MULTI_FRAME] (Fignore_event): New function.
[MULTI_FRAME] (keys_of_frame): Bind iconify-frame and
make-frame-visible to it.
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 13 |
1 files changed, 11 insertions, 2 deletions
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 */ |