diff options
author | Ulrich Müller <ulm@gentoo.org> | 2023-07-28 12:21:42 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2023-07-30 10:27:43 +0300 |
commit | 0002d4f31666719c5e972ca65efffc70750db613 (patch) | |
tree | c4a7124c6dde3aeab1bdc3eec82ec56ffc1bb2a7 /lisp/bindings.el | |
parent | 96d52f894441c06d7fdc10617e707f410ad66cc3 (diff) | |
download | emacs-0002d4f31666719c5e972ca65efffc70750db613.tar.gz |
Avoid spurious whitespace in the modeline of emacsclient frames
* lisp/bindings.el (mode-line-client): Compute 'help-echotext
property in advance. (Bug#58183)
(cherry picked from commit 8c3338f6ba354218aee12c223d778be4180f892b)
Diffstat (limited to 'lisp/bindings.el')
-rw-r--r-- | lisp/bindings.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index f4881ac388c..6db043e495c 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -226,9 +226,9 @@ mnemonics of the following coding systems: (put 'mode-line-mule-info 'risky-local-variable t) (defvar mode-line-client - `("" - (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" ""))) - help-echo ,(purecopy "emacsclient frame"))) + `(:eval + (if (frame-parameter nil 'client) + ,(propertize "@" 'help-echo (purecopy "emacsclient frame")))) "Mode line construct for identifying emacsclient frames.") ;; Autoload if this file no longer dumped. ;;;###autoload |