Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 22:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Abbreviate Flymake backend name in flymake-show-diagnostics-buffer

Browse source 
* lisp/progmodes/flymake.el (flymake--diagnostics-buffer-entries):
(flymake-diagnostics-buffer-mode): Report abbreviated backend, too.
This commit is contained in:
João Távora 2021-09-03 19:03:51 +01:00
parent 2a02ac1fda
commit ac24adc376
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/progmodes/flymake.el
View file

@ -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)