From 7b71eefbdfeab44a93695f93dfefac81fa8d09fb Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 22 Feb 2021 03:58:10 +0000
Subject: [PATCH] + bug fix in the rendering of double width characters

git-svn-id: branches/unicodekvm@48781 -
---
 packages/rtl-console/src/unix/video.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/rtl-console/src/unix/video.pp b/packages/rtl-console/src/unix/video.pp
index e2cd9c16bc..bdcaa06c44 100644
--- a/packages/rtl-console/src/unix/video.pp
+++ b/packages/rtl-console/src/unix/video.pp
@@ -757,7 +757,8 @@ begin
       begin
         if LastCharWasDoubleWidth then
          LastCharWasDoubleWidth:=false
-        else if (not force) and (p^=pold^) then
+        else if (not force) and (p^=pold^) and
+          ((ExtendedGraphemeClusterDisplayWidth(p^.ExtendedGraphemeCluster) <= 1) or (x=LastLineWidth) or (p[1]=pold[1])) then
          begin
            if (Spaces>0) then
             OutSpaces;