hpet_dog/mood-line
hpet_dog/mood-line
1
Fork 2
Code Issues 6 Pull Requests 1 Releases Activity

Accommodate new flymake variable name in Emacs 28+

Browse Source
This commit is contained in:
Dog 2021-09-03 07:42:56 -04:00
parent f96bca2323
commit 34a1304ede
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mood-line.el
View File

@ -291,7 +291,11 @@
(defun mood-line-segment-flymake () (defun mood-line-segment-flymake ()
"Displays information about the current status of flymake in the mode-line (if available)." "Displays information about the current status of flymake in the mode-line (if available)."
(when (and (boundp 'flymake-mode) flymake-mode) (when (and (boundp 'flymake-mode) flymake-mode)
(concat (mood-line--string-trim (format-mode-line flymake--mode-line-format)) " "))) ;; Depending on Emacs version, flymake stores the mode-line segment using one of two variable names
(let ((flymake-segment-format (if (boundp 'flymake-mode-line-format)
flymake-mode-line-format
flymake--mode-line-format)))
(concat (mood-line--string-trim (format-mode-line flymake-segment-format)) " "))))
(defun mood-line-segment-process () (defun mood-line-segment-process ()
"Displays the current value of `mode-line-process' in the mode-line." "Displays the current value of `mode-line-process' in the mode-line."