Make sure that the correct position type is used

yyoncho · Nov 1, 2023 · 7e1942e · 7e1942e
1 parent d845d7a
commit 7e1942e
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/lsp-mode.el b/lsp-mode.el
@@ -5074,12 +5074,16 @@ identifier and the position respectively."
       (lsp-point-in-range? left-start right)
       (lsp-point-in-range? left-end right)))
 
+(defun lsp-make-position-1 (position)
+  (lsp-make-position :line (plist-get position :line)
+                     :character (plist-get position :character)))
+
 (defun lsp-cur-possition-diagnostics ()
   "Return any diagnostics that apply to the current line."
   (-let* ((start (if (use-region-p) (region-beginning) (point)))
           (end (if (use-region-p) (region-end) (point)))
-          (current-range (lsp-make-range :start (lsp-point-to-position start)
-                                         :end (lsp-point-to-position end))))
+          (current-range (lsp-make-range :start (lsp-make-position-1 (lsp-point-to-position start))
+                                         :end (lsp-make-position-1 (lsp-point-to-position end)))))
     (->> (lsp--get-buffer-diagnostics)
          (-filter
           (-lambda ((&Diagnostic :range))