From ae877d551155000dffdbcd1b90d682967c6988d0 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 26 Apr 2022 12:39:13 +0200 Subject: 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. --- lisp/progmodes/flymake.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lisp/progmodes/flymake.el') 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 _) -- cgit v1.2.3