From: João Távora <joaotavora@gmail.com>
Date: Fri, 4 May 2018 13:15:41 +0000 (+0100)
Subject: Include source info in diagnostics
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~642
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4b678a2fa9de46793a7ee802a19a7592db0a903c;p=emacs.git

Include source info in diagnostics

* eglot.el (eglot--server-textDocument/publishDiagnostics):
Include source info.
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index d073be2603e..10435a16f8a 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -936,7 +936,7 @@ running.  INTERACTIVE is t if called interactively."
                      (point))))
           (cl-loop for diag-spec across diagnostics
                    collect (cl-destructuring-bind (&key range severity _group
-                                                        _code _source message)
+                                                        _code source message)
                                diag-spec
                              (cl-destructuring-bind (&key start end)
                                  range
@@ -951,7 +951,7 @@ running.  INTERACTIVE is t if called interactively."
                                          :warning)
                                         (t
                                          :note))
-                                  message))))
+                                  (concat source ": " message)))))
                    into diags
                    finally
                    (if eglot--current-flymake-report-fn