lsp-code-actions: getting location of diagnostics wrt LSP_USE_PLISTS (#4849)

Author: taquangtrung

lsp-mode.el

@@ -6111,12 +6111,24 @@ It will show up only if current point has signature help."
 
 (defun lsp--text-document-code-action-params (&optional kind)
   "Code action params."
-  (list :textDocument (lsp--text-document-identifier)
-        :range (if (use-region-p)
-                   (lsp--region-to-range (region-beginning) (region-end))
-                 (lsp--region-to-range (point) (point)))
-        :context `( :diagnostics ,(lsp-cur-possition-diagnostics)
-                    ,@(when kind (list :only (vector kind))))))
+  (let* ((diagnostics (lsp-cur-possition-diagnostics))
+         (range (cond ((use-region-p)
+                       (lsp--region-to-range (region-beginning) (region-end)))
+                      (diagnostics
+                       (let* ((start (point)) (end (point)))
+                         (mapc (-lambda
+                                 ((&Diagnostic
+                                   :range (&Range :start (&Position :line l1 :character c1)
+                                                  :end (&Position :line l2 :character c2))))
+                                 (setq start (min (lsp--line-character-to-point l1 c1) start))
+                                 (setq end (max (lsp--line-character-to-point l2 c2) end)))
+                               diagnostics)
+                         (lsp--region-to-range start end)))
+                      (t (lsp--region-to-range (point) (point))))))
+    (list :textDocument (lsp--text-document-identifier)
+          :range range
+          :context `( :diagnostics ,diagnostics
+                      ,@(when kind (list :only (vector kind)))))))
 
 (defun lsp-code-actions-at-point (&optional kind)
   "Retrieve the code actions for the active region or the current line.