Commit 87498171 authored by Karl Heuer's avatar Karl Heuer
Browse files

(x_get_focus_frame): New function.

parent 21f69e7e
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment