# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1094835987 0
# Node ID 79225007cc586ee41a1b90f2842dfeeec91b6723
# Parent  d9865d46a2a8d552d8062f7ab15501d3562345ab
(msdos_set_cursor_shape): Add debugging print-out to termscript.

diff -r d9865d46a2a8 -r 79225007cc58 src/msdos.c
--- a/src/msdos.c	Fri Sep 10 11:25:00 2004 +0000
+++ b/src/msdos.c	Fri Sep 10 17:06:27 2004 +0000
@@ -752,6 +752,9 @@
   if (f && f != SELECTED_FRAME())
     return;
 
+  if (termscript)
+    fprintf (termscript, "\nCURSOR SHAPE=(%d,%d)", start_line, width);
+
   /* The character cell size in scan lines is stored at 40:85 in the
      BIOS data area.  */
   max_line = _farpeekw (_dos_ds, 0x485) - 1;
@@ -851,10 +854,12 @@
 	}
     }
   else
-    /* Treat anything unknown as "box cursor".  This includes nil, so
-       that a frame which doesn't specify a cursor type gets a box,
-       which is the default in Emacs.  */
-    msdos_set_cursor_shape (f, 0, BOX_CURSOR_WIDTH);
+    {
+      /* Treat anything unknown as "box cursor".  This includes nil, so
+	 that a frame which doesn't specify a cursor type gets a box,
+	 which is the default in Emacs.  */
+      msdos_set_cursor_shape (f, 0, BOX_CURSOR_WIDTH);
+    }
 }
 
 static void
@@ -1826,6 +1831,8 @@
 static void
 IT_display_cursor (int on)
 {
+  if (termscript)
+    fprintf (termscript, "\nCURSOR %s", on ? "ON" : "OFF");
   if (on && cursor_cleared)
     {
       ScreenSetCursor (current_pos_Y, current_pos_X);