Mercurial > emacs
changeset 7055:5e4906d964b8
(Fset_frame_selected_window): New function.
(syms_of_frame): Set up Lisp function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Apr 1994 20:53:09 +0000 |
| parents | e953589ce73d |
| children | 0a18af7eb587 |
| files | src/frame.c |
| diffstat | 1 files changed, 26 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/frame.c Sat Apr 23 19:22:06 1994 +0000 +++ b/src/frame.c Sat Apr 23 20:53:09 1994 +0000 @@ -454,7 +454,7 @@ XSET (tem, Lisp_Frame, selected_frame); return tem; } - + DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0, "Return the frame object that window WINDOW is on.") (window) @@ -520,6 +520,30 @@ return XFRAME (frame)->selected_window; } +DEFUN ("set-frame-selected-window", Fset_frame_selected_window, + Sset_frame_selected_window, 2, 2, 0, + "Set the selected window of frame object FRAME to WINDOW.\n\ +If FRAME is nil, the selected frame is used.\n\ +If FRAME is the selected frame, this makes WINDOW the selected window.") + (frame, window) + Lisp_Object frame, window; +{ + if (NILP (frame)) + XSET (frame, Lisp_Frame, selected_frame); + else + CHECK_LIVE_FRAME (frame, 0); + + CHECK_LIVE_WINDOW (window, 1); + + if (! EQ (frame, WINDOW_FRAME (XWINDOW (window)))) + error ("In `set-frame-selected-window', WINDOW is not on FRAME"); + + if (XFRAME (frame) == selected_frame) + return Fselect_window (window); + + return XFRAME (frame)->selected_window = window; +} + DEFUN ("frame-list", Fframe_list, Sframe_list, 0, 0, 0, "Return a list of all frames.") @@ -1698,6 +1722,7 @@ defsubr (&Swindow_frame); defsubr (&Sframe_root_window); defsubr (&Sframe_selected_window); + defsubr (&Sset_frame_selected_window); defsubr (&Sframe_list); defsubr (&Snext_frame); defsubr (&Sprevious_frame);