diff options
| author | Ulrich Müller | 2023-07-28 12:21:42 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2023-07-30 10:27:43 +0300 |
| commit | 0002d4f31666719c5e972ca65efffc70750db613 (patch) | |
| tree | c4a7124c6dde3aeab1bdc3eec82ec56ffc1bb2a7 | |
| parent | 96d52f894441c06d7fdc10617e707f410ad66cc3 (diff) | |
| download | emacs-0002d4f31666719c5e972ca65efffc70750db613.tar.gz emacs-0002d4f31666719c5e972ca65efffc70750db613.zip | |
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)
| -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: | |||
| 226 | (put 'mode-line-mule-info 'risky-local-variable t) | 226 | (put 'mode-line-mule-info 'risky-local-variable t) |
| 227 | 227 | ||
| 228 | (defvar mode-line-client | 228 | (defvar mode-line-client |
| 229 | `("" | 229 | `(:eval |
| 230 | (:propertize ("" (:eval (if (frame-parameter nil 'client) "@" ""))) | 230 | (if (frame-parameter nil 'client) |
| 231 | help-echo ,(purecopy "emacsclient frame"))) | 231 | ,(propertize "@" 'help-echo (purecopy "emacsclient frame")))) |
| 232 | "Mode line construct for identifying emacsclient frames.") | 232 | "Mode line construct for identifying emacsclient frames.") |
| 233 | ;; Autoload if this file no longer dumped. | 233 | ;; Autoload if this file no longer dumped. |
| 234 | ;;;###autoload | 234 | ;;;###autoload |