From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 23 Mar 1994 20:09:12 +0000 (+0000)
Subject: (x_get_focus_frame): New function.
X-Git-Tag: emacs-19.34~9367
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87498171d3cd0cbdc5058c0890103964d334ebd5;p=emacs.git

(x_get_focus_frame): New function.
---

diff --git a/src/xfns.c b/src/xfns.c
index dea6db53db2..fb788dd7f58 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -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)