# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764453352 0
# Node ID b0825eef18b1aa4241d09a91e1d1069e0325ac62
# Parent  04993cb5dcdaad0541ba076517d32fc46b20ae6b
(x_get_focus_frame): New function.

diff -r 04993cb5dcda -r b0825eef18b1 src/xfns.c
--- a/src/xfns.c	Wed Mar 23 18:38:23 1994 +0000
+++ b/src/xfns.c	Wed Mar 23 20:09:12 1994 +0000
@@ -2399,6 +2399,17 @@
 #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)