branch: externals/eglot
commit 6e936220110b95e037eb4eb06aae3cf1f60a8095
Author: João Távora <joaotav...@gmail.com>
Commit: João Távora <joaotav...@gmail.com>
Fix #273: leniently handle invalid positions sent by some servers
* eglot.el (eglot--lsp-position-to-point): Leniently squash
invalid character positions to 0.
---
eglot.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/eglot.el b/eglot.el
index ca63723..d470555 100644
--- a/eglot.el
+++ b/eglot.el
@@ -1020,8 +1020,14 @@ If optional MARKER, return a marker instead"
(forward-line (min most-positive-fixnum
(plist-get pos-plist :line)))
(unless (eobp) ;; if line was excessive leave point at eob
- (let ((tab-width 1))
- (funcall eglot-move-to-column-function (plist-get pos-plist
:character))))
+ (let ((tab-width 1)
+ (col (plist-get pos-plist :character)))
+ (unless (wholenump col)
+ (eglot--warn
+ :eglot "Caution: LSP server sent invalid character position %s.
Using 0 instead."
+ col)
+ (setq col 0))
+ (funcall eglot-move-to-column-function col)))
(if marker (copy-marker (point-marker)) (point))))
(defun eglot--path-to-uri (path)
