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.

diff --git a/doc/misc/flymake.texi b/doc/misc/flymake.texi
index 0db02608dd276e4f31069c602513f4cb6fe8d3d4..953e4605e98f3654f569eef43d49e03bc393df10 100644 (file)
--- 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 40e914cd320b47ed8b58238232c16d83b3f087ab..e97f545dda921a0d1780e727fc93b6e071f7fe79 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -669,6 +669,11 @@ script that was used in ancient South Asia.  A new input method,
 \f
 * 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 8cbebe78fe1334d5501eef41b073b297c78404e0..b5f4fff3c310053f0c7e326045c1ed4d9d91db6f 100644 (file)
--- 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 _)