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.") ...@@ -2399,6 +2399,17 @@ be shared by the new frame.")
#endif /* X10 */ #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, DEFUN ("focus-frame", Ffocus_frame, Sfocus_frame, 1, 1, 0,
"Set the focus on FRAME.") "Set the focus on FRAME.")
(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