From bec707da4dbcc64485ee5815d91f40d0babad3a9 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 17 Jul 2023 20:56:29 +0300 Subject: [PATCH] * lisp/bindings.el (mode--line-format-right-align): Add 'mode-line' face. Like in `tab-bar-format-align-right', use `add-face-text-property' to add 'mode-line' face on the `rest-str' string for `string-pixel-width' to calculate the correct pixel width (bug#62606). --- lisp/bindings.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index f1a75b080be..0a0fef1b564 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -338,7 +338,10 @@ the symbol `mode-line-format-right-align' is processed by (let* ((rest (cdr (memq 'mode-line-format-right-align mode-line-format))) (rest-str (format-mode-line `("" ,@rest))) - (rest-width (string-pixel-width rest-str))) + (rest-width (progn + (add-face-text-property + 0 (length rest-str) 'mode-line t rest-str) + (string-pixel-width rest-str)))) (propertize " " 'display ;; The `right' spec doesn't work on TTY frames ;; when windows are split horizontally (bug#59620) -- 2.39.5