(Ffocus_frame, Funfocus_frame): Make them no-ops.

diff --git a/src/xfns.c b/src/xfns.c
index 9ed565adf4ac78d8613e2734cfa26feeb0b8205b..10d8fab110951a596f8c71b5e17b227d72e26d32 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3143,39 +3143,17 @@ x_get_focus_frame (frame)
 }
 
 DEFUN ("focus-frame", Ffocus_frame, Sfocus_frame, 1, 1, 0,
-  "Set the focus on FRAME.")
+  "This function is obsolete, and does nothing.")
   (frame)
      Lisp_Object frame;
 {
-  CHECK_LIVE_FRAME (frame, 0);
-
-  if (FRAME_X_P (XFRAME (frame)))
-    {
-      BLOCK_INPUT;
-      x_focus_on_frame (XFRAME (frame));
-      UNBLOCK_INPUT;
-      return frame;
-    }
-
   return Qnil;
 }
 
 DEFUN ("unfocus-frame", Funfocus_frame, Sunfocus_frame, 0, 0, 0,
-  "If a frame has been focused, release it.")
+  "This function is obsolete, and does nothing.")
   ()
 {
-  if (FRAME_X_P (selected_frame))
-    {
-      struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (selected_frame);
-
-      if (dpyinfo->x_focus_frame)
-       {
-         BLOCK_INPUT;
-         x_unfocus_frame (dpyinfo->x_focus_frame);
-         UNBLOCK_INPUT;
-       }
-    }
-
   return Qnil;
 }
 \f