diff options
-rw-r--r-- | editors/emacs/ra-emacs-lsp.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/editors/emacs/ra-emacs-lsp.el b/editors/emacs/ra-emacs-lsp.el index 780182f8a..955703edb 100644 --- a/editors/emacs/ra-emacs-lsp.el +++ b/editors/emacs/ra-emacs-lsp.el | |||
@@ -58,17 +58,16 @@ | |||
58 | 58 | ||
59 | (defun rust-analyzer--apply-source-change (data) | 59 | (defun rust-analyzer--apply-source-change (data) |
60 | ;; TODO fileSystemEdits | 60 | ;; TODO fileSystemEdits |
61 | (--each (-> data (ht-get "workspaceEdit") (ht-get "documentChanges")) | 61 | (seq-doseq (it (-> data (ht-get "workspaceEdit") (ht-get "documentChanges"))) |
62 | (rust-analyzer--apply-text-document-edit it)) | 62 | (rust-analyzer--apply-text-document-edit it)) |
63 | (-when-let (cursor-position (ht-get data "cursorPosition")) | 63 | (-when-let (cursor-position (ht-get data "cursorPosition")) |
64 | (let ((filename (rust-analyzer--uri-filename (ht-get cursor-position "textDocument"))) | 64 | (let ((filename (rust-analyzer--uri-filename (ht-get cursor-position "textDocument"))) |
65 | (position (ht-get cursor-position "position"))) | 65 | (position (ht-get cursor-position "position"))) |
66 | (find-file filename) | 66 | (find-file filename) |
67 | (rust-analyzer--goto-lsp-loc position) | 67 | (rust-analyzer--goto-lsp-loc position)))) |
68 | ))) | ||
69 | 68 | ||
70 | (defun rust-analyzer--apply-source-change-command (p) | 69 | (defun rust-analyzer--apply-source-change-command (p) |
71 | (let ((data (-> p (ht-get "arguments") (car)))) | 70 | (let ((data (-> p (ht-get "arguments") (seq-first)))) |
72 | (rust-analyzer--apply-source-change data))) | 71 | (rust-analyzer--apply-source-change data))) |
73 | 72 | ||
74 | (lsp-register-client | 73 | (lsp-register-client |
@@ -126,7 +125,7 @@ | |||
126 | "rust-analyzer/extendSelection" | 125 | "rust-analyzer/extendSelection" |
127 | (rust-analyzer--extend-selection-params))) | 126 | (rust-analyzer--extend-selection-params))) |
128 | (ht-get "selections") | 127 | (ht-get "selections") |
129 | (car))) | 128 | (seq-first))) |
130 | 129 | ||
131 | (defun rust-analyzer--add-er-expansion () | 130 | (defun rust-analyzer--add-er-expansion () |
132 | (make-variable-buffer-local 'er/try-expand-list) | 131 | (make-variable-buffer-local 'er/try-expand-list) |