Mercurial > emacs

changeset 12773:3fb29deb1b1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffocus_frame, Funfocus_frame): Make them no-ops.
author Richard M. Stallman <rms@gnu.org>
date Sat, 05 Aug 1995 05:04:46 +0000
parents f4b2913b7f58
children 9b17b06bc9cd
files src/xfns.c
diffstat 1 files changed, 2 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- 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;
 }