From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 1 Jul 1994 00:32:05 +0000 (+0000)
Subject: (x_draw_box): Use curs_x and curs_y, not f->cursor_[xy].
X-Git-Tag: emacs-19.34~7755
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a6cf806e2c2b937d37dcfec0b66f58eef053ca1;p=emacs.git

(x_draw_box): Use curs_x and curs_y, not f->cursor_[xy].

(x_make_frame_visible): In x_sync loop at the end,
every fourth time, sleep for 1/4 second.
---

diff --git a/src/xterm.c b/src/xterm.c
index 09f919cf462..d859ffdfee4 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -4451,8 +4451,8 @@ static void
 x_draw_box (f)
      struct frame *f;
 {
-  int left = CHAR_TO_PIXEL_COL (f, f->cursor_x);
-  int top  = CHAR_TO_PIXEL_ROW (f, f->cursor_y);
+  int left = CHAR_TO_PIXEL_COL (f, curs_x);
+  int top  = CHAR_TO_PIXEL_ROW (f, curs_y);
   int width = FONT_WIDTH (f->display.x->font);
   int height = f->display.x->line_height;
 
@@ -5568,9 +5568,22 @@ x_make_frame_visible (f)
      so that incoming events are handled.  */
   {
     Lisp_Object frame;
+    int one_in_four = 0;
     XSET (frame, Lisp_Frame, f);
     while (! f->async_visible)
-      x_sync (frame);
+      {
+	x_sync (frame);
+	/* On HPUX on the HP800, the sleep is needed sometimes.  */
+	if ((one_in_four & 3) == 0)
+	  {
+#ifdef EMACS_HAS_USECS
+	    Fsleep_for (make_number (1), make_number (0));
+#else
+	    Fsleep_for (make_number (0), make_number (250));
+#endif
+	  }
+	one_in_four++;
+      }
     FRAME_SAMPLE_VISIBILITY (f);
   }
 }