From b106731c46f622c5cdfaf0ed3c31ab3436cf5510 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 10 Sep 2004 17:07:47 +0000 Subject: [PATCH] (msdos_set_cursor_shape): Add debugging print-out to termscript. --- src/ChangeLog | 5 +++++ src/msdos.c | 15 +++++++++++---- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index bdc2d2d7e20..dee383a888f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2004-09-10 Eli Zaretskii + + * msdos.c (msdos_set_cursor_shape): Add debugging print-out to + termscript. + 2004-09-09 Richard M. Stallman * xdisp.c (decode_mode_spec): Use current buffer for most purposes. diff --git a/src/msdos.c b/src/msdos.c index f2d1dc66a69..e0f4527e5ae 100644 --- a/src/msdos.c +++ b/src/msdos.c @@ -752,6 +752,9 @@ msdos_set_cursor_shape (struct frame *f, int start_line, int width) 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 @@ IT_set_cursor_type (struct frame *f, Lisp_Object cursor_type) } } 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 int cursor_cleared; 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); -- 2.39.2