From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 25 Apr 2024 16:34:42 +0000 (+0300)
Subject: Fix 'mode-line-right-align-edge' with asymmetrical margins
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2933f0a34ae0c4928b2ded0a0eba4ce91f2324f3;p=emacs.git

Fix 'mode-line-right-align-edge' with asymmetrical margins

* lisp/bindings.el (mode--line-format-right-align): Fix alignment
when window-margins are different on each side of the window.
Suggested by Charles Gonnaud <charles.gonnaud@gmail.com>.
(Bug#70485)

(cherry picked from commit 98649236f5eb1d89a60ebb9cc06c71f410f6b347)
---

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4c4b89c4028..59fcbf3fd0a 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -381,7 +381,7 @@ the symbol `mode-line-format-right-align' is processed by
 		  `(space :align-to (,(- (window-pixel-width)
                                          (window-scroll-bar-width)
                                          (window-right-divider-width)
-                                         (* (or (cdr (window-margins)) 1)
+                                         (* (or (car (window-margins)) 0)
                                             (frame-char-width))
                                          ;; Manually account for value of
                                          ;; `mode-line-right-align-edge' even