# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753937720 0
# Node ID 9b41ddf1b5f77d3091070bae93c153592bee060c
# Parent  bcf4b8ed1c60002190fe592e267d374b2c6789b5
(Fmake_frame_visible): Use FRAME_SAMPLE_VISIBILITY.  Doc fix.

diff -r bcf4b8ed1c60 -r 9b41ddf1b5f7 src/frame.c
--- a/src/frame.c	Mon Nov 22 00:42:30 1993 +0000
+++ b/src/frame.c	Mon Nov 22 03:08:40 1993 +0000
@@ -837,7 +837,6 @@
 DEFUN ("make-frame-visible", Fmake_frame_visible, Smake_frame_visible,
        0, 1, "",
   "Make the frame FRAME visible (assuming it is an X-window).\n\
-Also raises the frame so that nothing obscures it.\n\
 If omitted, FRAME defaults to the currently selected frame.")
   (frame)
      Lisp_Object frame;
@@ -850,7 +849,10 @@
   /* I think this should be done with a hook.  */
 #ifdef HAVE_X_WINDOWS
   if (FRAME_X_P (XFRAME (frame)))
-    x_make_frame_visible (XFRAME (frame));
+    {
+      FRAME_SAMPLE_VISIBILITY (XFRAME (frame));
+      x_make_frame_visible (XFRAME (frame));
+    }
 #endif
 
   return frame;