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(-)
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