From 97fc2468bd2cbce07205d1fc96f17220187a0f84 Mon Sep 17 00:00:00 2001
From: Dmitry Antipov <dmantipov@yandex.ru>
Date: Fri, 13 Sep 2013 20:55:48 +0400
Subject: [PATCH] * frame.c (Fx_focus_frame) [HAVE_WINDOW_SYSTEM]: Fix last
 change.

---
 src/frame.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/frame.c b/src/frame.c
index 74e57f9b5f2..fde2a131548 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1903,10 +1903,13 @@ See `redirect-frame-focus'.  */)
 
 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
        doc: /* Set the input focus to FRAME.
-FRAME nil means use the selected frame.  */)
+FRAME nil means use the selected frame.
+If there is no window system support, this function does nothing.  */)
   (Lisp_Object frame)
 {
+#ifdef HAVE_WINDOW_SYSTEM
   x_focus_frame (decode_window_system_frame (frame));
+#endif
   return Qnil;
 }
 
-- 
2.39.2