From 09af84d74b3c56aae9ec7a8cc1f4e72050229ccf Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 26 Sep 2021 17:21:05 -0500
Subject: Correct simple-modeline--format for right fringe

---
 init.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index f3e1cb5..04ffd95 100644
--- a/init.el
+++ b/init.el
@@ -2063,8 +2063,11 @@ the default is \"/\"."
          left
          (propertize " "
                      'display (el-patch-swap
-                                `(space :align-to (- right ,reserve))
-                                `(space :align-to (- right (- 0 right-margin) ,reserve)))
+                                `((space :align-to (- right ,reserve)))
+                                `((space :align-to
+                                         (- right
+                                            (- 1 right-fringe right-margin)
+                                            ,reserve))))
                      'face '(:inherit simple-modeline-space))
          right))))
   
-- 
cgit 1.4.1-21-gabe81