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)

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 50af32076a35b6fb5c9c3e35890dda8469a2a102..5a8c7cfafd79eeca0d8c21e1cdae0e566c056a23 100644 (file)
--- 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