From: Kim F. Storm <storm@cua.dk>
Date: Wed, 17 Nov 2004 00:27:37 +0000 (+0000)
Subject: (erase_phys_cursor): Adjust cursor row visible height.
X-Git-Tag: ttn-vms-21-2-B4~3872
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=78e7b91f176535ca99647555a519652d4f289b44;p=emacs.git

(erase_phys_cursor): Adjust cursor row visible height.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index 2620485bbe3..2a9f3b6cd14 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -20068,6 +20068,11 @@ erase_phys_cursor (w)
   if (!cursor_row->enabled_p)
     goto mark_cursor_off;
 
+  /* If line spacing is > 0, old cursor may only be partially visible in
+     window after split-window.  So adjust visible height.  */
+  cursor_row->visible_height = min (cursor_row->visible_height,
+				    window_text_bottom_y (w) - cursor_row->y);
+
   /* If row is completely invisible, don't attempt to delete a cursor which
      isn't there.  This can happen if cursor is at top of a window, and
      we switch to a buffer with a header line in that window.  */