scratch/bug-50244 08a28fb 4/6: Abbreviate Flymake backend name in flymake-show-diagnostics-buffer

[João Távora]

branch: scratch/bug-50244
commit 08a28fb6e13cc4e114272e5f8a2637ed458583eb
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Abbreviate Flymake backend name in flymake-show-diagnostics-buffer
    
    * lisp/progmodes/flymake.el (flymake--diagnostics-buffer-entries):
    (flymake-diagnostics-buffer-mode): Report abbreviated backend, too.
---
 lisp/progmodes/flymake.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index e5e8acb..659a16b 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -1405,6 +1405,9 @@ POS can be a buffer position or a button"
                        (- (point)
                           (line-beginning-position))))
                for type = (flymake-diagnostic-type diag)
+               for backend = (flymake-diagnostic-backend diag)
+               for bname = (or (ignore-errors (symbol-name backend))
+                               "(anonymous function)")
                collect
                (list (list :diagnostic diag
                            :line line
@@ -1418,6 +1421,12 @@ POS can be a buffer position or a button"
                                              type 'flymake-type-name type))
                                     'face (flymake--lookup-type-property
                                            type 'mode-line-face 
'flymake-error))
+                       ,(propertize
+                         (if bname
+                             (replace-regexp-in-string 
"\\(.\\)[^-]+\\(-\\|$\\)"
+                                                       "\\1\\2" bname)
+                           "(anon)")
+                         'help-echo (format "From `%s' backend" backend))
                        (,(format "%s" (flymake-diagnostic-text diag))
                         mouse-face highlight
                         help-echo "mouse-2: visit this diagnostic"
@@ -1437,6 +1446,7 @@ POS can be a buffer position or a button"
           ("Type" 8 ,(lambda (l1 l2)
                        (< (plist-get (car l1) :severity)
                           (plist-get (car l2) :severity))))
+          ("Backend" 8 t)
           ("Message" 0 t)])
   (setq tabulated-list-entries
         'flymake--diagnostics-buffer-entries)