mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(x_get_focus_frame): New function.

Browse Source
This commit is contained in:
Karl Heuer 1994-03-23 20:09:12 +00:00
parent 21f69e7e21
commit 87498171d3
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/xfns.c
View File

@ -2399,6 +2399,17 @@ be shared by the new frame.")
#endif /* X10 */
}
Lisp_Object
x_get_focus_frame ()
{
Lisp_Object xfocus;
if (! x_focus_frame)
return Qnil;
XSET (xfocus, Lisp_Frame, x_focus_frame);
return xfocus;
}
DEFUN ("focus-frame", Ffocus_frame, Sfocus_frame, 1, 1, 0,
"Set the focus on FRAME.")
(frame)