procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Eldoc: play nice with mode-line-format-right-align (bug#68547)

Browse source 
* lisp/emacs-lisp/eldoc.el (eldoc-minibuffer-message): Avoid nesting
'mode-line-format', since that breaks 'mode-line-format-right-align'.
This commit is contained in:
Eshel Yaron 2024-01-20 05:43:27 -06:00 • committed by João Távora
parent ce836aafaa
commit 412cc0212d
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/eldoc.el
View file

@ -312,9 +312,11 @@ Otherwise, it displays the message like `message' would."
(not (and (listp mode-line-format)
(assq 'eldoc-mode-line-string mode-line-format))))
(setq mode-line-format
(list "" '(eldoc-mode-line-string
(" " eldoc-mode-line-string " "))
mode-line-format)))
(funcall
(if (listp mode-line-format) #'append #'list)
(list "" '(eldoc-mode-line-string
(" " eldoc-mode-line-string " ")))
mode-line-format)))
(setq eldoc-mode-line-string
(when (stringp format-string)
(apply #'format-message format-string args)))