From: Spencer Baugh <sbaugh@catern.com>
Date: Sun, 2 Jul 2023 16:11:09 +0000 (-0400)
Subject: Include a help-echo for flymake's modeline counters
X-Git-Tag: emacs-29.1-rc1~74
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9b46bb25df38e0ca89784afac230408b620b2dc;p=emacs.git

Include a help-echo for flymake's modeline counters

This helps clarify what each of these numbers mean.  This is inspired
by 'compilation-mode-line-errors' which does the same.
* lisp/progmodes/flymake.el (flymake--mode-line-counter): Add
help-echo to mode line properties.  (Bug#64424)
---

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 6f293acca5e..47dc32f9245 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -1473,6 +1473,12 @@ TYPE is usually keyword `:error', `:warning' or `:note'."
          ,(format "%d" count)
          face ,face
          mouse-face mode-line-highlight
+         help-echo ,(format "Number of %s; scroll mouse to view."
+                            (cond
+                             ((eq type :error) "errors")
+                             ((eq type :warning) "warnings")
+                             ((eq type :note) "notes")
+                             (t (format "%s diagnostics" type))))
          keymap
          ,(let ((map (make-sparse-keymap)))
             (define-key map (vector 'mode-line