[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ae877d5511: Add new user option flymake-mode-line-lighter
From: |
Lars Ingebrigtsen |
Subject: |
master ae877d5511: Add new user option flymake-mode-line-lighter |
Date: |
Tue, 26 Apr 2022 06:39:48 -0400 (EDT) |
branch: master
commit ae877d551155000dffdbcd1b90d682967c6988d0
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Add new user option flymake-mode-line-lighter
* doc/misc/flymake.texi (Customizable variables): Document it.
* lisp/progmodes/flymake.el (flymake-mode-line-lighter): New user
option (bug#55115).
(flymake--mode-line-title): Use it.
---
doc/misc/flymake.texi | 3 +++
etc/NEWS | 5 +++++
lisp/progmodes/flymake.el | 7 ++++++-
3 files changed, 14 insertions(+), 1 deletion(-)
diff --git a/doc/misc/flymake.texi b/doc/misc/flymake.texi
index 0db02608dd..953e4605e9 100644
--- a/doc/misc/flymake.texi
+++ b/doc/misc/flymake.texi
@@ -265,6 +265,9 @@ This section summarizes customization variables used for the
configuration of the Flymake user interface.
@vtable @code
+@item flymake-mode-line-lighter
+The name of the mode. Defaults to @samp{Flymake}.
+
@item flymake-mode-line-format
Format to use for the Flymake mode line indicator.
diff --git a/etc/NEWS b/etc/NEWS
index 40e914cd32..e97f545dda 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -669,6 +669,11 @@ script that was used in ancient South Asia. A new input
method,
* Changes in Specialized Modes and Packages in Emacs 29.1
+** Flymake
+
++++
+*** New user option 'flymake-mode-line-lighter'.
+
+++
** New minor mode 'word-wrap-whitespace-mode' for extending 'word-wrap'.
This mode switches 'word-wrap' on, and breaks on all the whitespace
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 8cbebe78fe..b5f4fff3c3 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -1358,6 +1358,11 @@ This is a suitable place for placing the
`flymake-error-counter',
Separating each of these with space is not necessary."
:type '(repeat (choice string symbol)))
+(defcustom flymake-mode-line-lighter "Flymake"
+ "The string to use in the Flymake mode line."
+ :type 'string
+ :version "29.1")
+
(defvar flymake-mode-line-title '(:eval (flymake--mode-line-title))
"Mode-line construct to show Flymake's mode name and menu.")
@@ -1386,7 +1391,7 @@ correctly.")
(defun flymake--mode-line-title ()
`(:propertize
- "Flymake"
+ ,flymake-mode-line-lighter
mouse-face mode-line-highlight
help-echo
,(lambda (&rest _)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ae877d5511: Add new user option flymake-mode-line-lighter,
Lars Ingebrigtsen <=