[elpa] externals/eglot 55c13a9137 22/33: Merge pull request #759 from stephe-ada-guru/master

[Stefan Kangas]

branch: externals/eglot
commit 55c13a91378cdd7822c99bbbf340ea76b1f0bf38
Merge: 8b15bf726f 7b1055a188
Author: Stephen Leake <stephen.leake84@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #759 from stephe-ada-guru/master
    
    Fix issues #755, #401; severity not set in textDocument/publishDiagnostics
---
 eglot.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/eglot.el b/eglot.el
index bf9cf25c33..d889020912 100644
--- a/eglot.el
+++ b/eglot.el
@@ -1,6 +1,6 @@
 ;;; eglot.el --- Client for Language Server Protocol (LSP) servers  -*- 
lexical-binding: t; -*-
 
-;; Copyright (C) 2018-2020 Free Software Foundation, Inc.
+;; Copyright (C) 2018-2021 Free Software Foundation, Inc.
 
 ;; Version: 1.7
 ;; Author: João Távora <joaotavora@gmail.com>
@@ -1603,7 +1603,7 @@ Use `eglot-managed-p' to determine if current buffer is 
managed.")
                      :key #'eglot--major-mode)
             (and eglot-extend-to-xref
                  buffer-file-name
-                 (gethash (expand-file-name buffer-file-name) 
+                 (gethash (expand-file-name buffer-file-name)
                           eglot--servers-by-xrefed-file)))))
 
 (defun eglot--current-server-or-lose ()
@@ -1808,7 +1808,8 @@ COMMAND is a symbol naming the command."
                                 (point-at-eol
                                  (1+ (plist-get (plist-get range :end) 
:line)))))))
                      (eglot--make-diag (current-buffer) beg end
-                                       (cond ((<= sev 1) 'eglot-error)
+                                       (cond ((null sev) 'eglot-error)
+                                            ((<= sev 1) 'eglot-error)
                                              ((= sev 2)  'eglot-warning)
                                              (t          'eglot-note))
                                        message `((eglot-lsp-diag . 
,diag-spec)))))