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.

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 2900ba15ba9737d9835d7db192e151fbae074a86..21327e09684f0ecffb4b6358796b02d9a9f7c5a9 100644 (file)
--- 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)