# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807599086 0
# Node ID 3fb29deb1b1b431a97eeda84b70981c9be8d0f26
# Parent  f4b2913b7f580ce7c2c590df4e3a2d8d9f6c727b
(Ffocus_frame, Funfocus_frame): Make them no-ops.

diff -r f4b2913b7f58 -r 3fb29deb1b1b src/xfns.c
--- a/src/xfns.c	Sat Aug 05 01:02:10 1995 +0000
+++ b/src/xfns.c	Sat Aug 05 05:04:46 1995 +0000
@@ -3143,39 +3143,17 @@
 }
 
 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;
 }