From ae877d551155000dffdbcd1b90d682967c6988d0 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 26 Apr 2022 12:39:13 +0200
Subject: [PATCH] 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 0db02608dd2..953e4605e98 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 40e914cd320..e97f545dda9 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 8cbebe78fe1..b5f4fff3c31 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 _)
-- 
2.39.2