diff options
| author | Eli Zaretskii | 2025-12-17 15:14:25 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2025-12-17 15:14:25 +0200 |
| commit | b7601bfb70ee06e7ed97c5f80bfc8c8e0dd80d6c (patch) | |
| tree | 81fc308825e17df8ebfbc71437169e5a65218dcc | |
| parent | 0c7420fe3859af6a4a26c174e7b040873723ce5a (diff) | |
| download | emacs-b7601bfb70ee06e7ed97c5f80bfc8c8e0dd80d6c.tar.gz emacs-b7601bfb70ee06e7ed97c5f80bfc8c8e0dd80d6c.zip | |
Fix 'mode-line-format-right-align' in Olivetti mode
* lisp/bindings.el (mode--line-format-right-align): Account for
the left fringe. (Bug#80019)
| -rw-r--r-- | lisp/bindings.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 8b021a05ce2..e34dea6ee1f 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el | |||
| @@ -383,6 +383,7 @@ the symbol `mode-line-format-right-align' is processed by | |||
| 383 | (window-right-divider-width) | 383 | (window-right-divider-width) |
| 384 | (* (or (car (window-margins)) 0) | 384 | (* (or (car (window-margins)) 0) |
| 385 | (frame-char-width)) | 385 | (frame-char-width)) |
| 386 | (car (window-fringes)) | ||
| 386 | ;; Manually account for value of | 387 | ;; Manually account for value of |
| 387 | ;; `mode-line-right-align-edge' even | 388 | ;; `mode-line-right-align-edge' even |
| 388 | ;; when display is non-graphical | 389 | ;; when display is non-graphical |