Mercurial > emacs
changeset 6485:b0825eef18b1
(x_get_focus_frame): New function.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 23 Mar 1994 20:09:12 +0000 |
| parents | 04993cb5dcda |
| children | 5012ae9c6075 |
| files | src/xfns.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)