Mercurial > emacs
comparison src/frame.c @ 3970:020fe391d5c1
* frame.c (Fredirect_frame_focus): Allow redirection of focus of
dead frames.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Sun, 04 Jul 1993 01:53:24 +0000 |
parents | 1b2144b795aa |
children | b283670201b4 |
comparison
equal
deleted
inserted
replaced
3969:6851e4266920 | 3970:020fe391d5c1 |
---|---|
978 \n\ | 978 \n\ |
979 The redirection lasts until `redirect-frame-focus' is called to change it.") | 979 The redirection lasts until `redirect-frame-focus' is called to change it.") |
980 (frame, focus_frame) | 980 (frame, focus_frame) |
981 Lisp_Object frame, focus_frame; | 981 Lisp_Object frame, focus_frame; |
982 { | 982 { |
983 CHECK_LIVE_FRAME (frame, 0); | 983 /* Note that we don't check for a live frame here. It's reasonable |
984 to redirect the focus of a frame you're about to delete, if you | |
985 know what other frame should receive those keystrokes. */ | |
986 CHECK_FRAME (frame, 0); | |
984 | 987 |
985 if (! NILP (focus_frame)) | 988 if (! NILP (focus_frame)) |
986 CHECK_LIVE_FRAME (focus_frame, 1); | 989 CHECK_LIVE_FRAME (focus_frame, 1); |
987 | 990 |
988 XFRAME (frame)->focus_frame = focus_frame; | 991 XFRAME (frame)->focus_frame = focus_frame; |