Mercurial > emacs
changeset 57048:79225007cc58
(msdos_set_cursor_shape): Add debugging print-out to termscript.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 10 Sep 2004 17:06:27 +0000 |
| parents | d9865d46a2a8 |
| children | a9ea809c58f7 |
| files | src/msdos.c |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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);