From: oldosfan <luangruo@yahoo.com>
Date: Sun, 17 Oct 2021 13:12:03 +0000 (+0800)
Subject: Fix erasing cursor on top of raised boxes in NS port
X-Git-Tag: emacs-29.0.90~3671^2~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b5a2ab50b7817f84ae38f84b4ea36ea38cd5a3b;p=emacs.git

Fix erasing cursor on top of raised boxes in NS port

* src/nsterm.m (ns_draw_relief): Clear top and bottom line areas
first, if required.
---

diff --git a/src/nsterm.m b/src/nsterm.m
index ed0e7a2aae8..8ee5c03b97e 100644
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -3510,6 +3510,12 @@ ns_draw_relief (NSRect outer, int hthickness, int vthickness, char raised_p,
 
   [(raised_p ? lightCol : darkCol) set];
 
+  if (top_p)
+    {
+      NSRectFill (NSMakeRect (NSMinX (outer), NSMinY (outer),
+			      NSWidth (outer), hthickness));
+    }
+
   if (top_p || left_p)
     {
       NSBezierPath *p = [NSBezierPath bezierPath];
@@ -3549,6 +3555,12 @@ ns_draw_relief (NSRect outer, int hthickness, int vthickness, char raised_p,
       [p closePath];
       [p fill];
     }
+
+  if (bottom_p)
+    {
+      NSRectFill (NSMakeRect (NSMinX (outer), NSMaxY (inner),
+			      NSWidth (outer), hthickness));
+    }
 }