summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoão Távora <joaotavora@gmail.com>2023-03-19 19:44:31 +0000
committerJoão Távora <joaotavora@gmail.com>2023-03-19 19:53:48 +0000
commita4d97811ed4a6557ccac4b6a79a52993d8aa0fa3 (patch)
treefec712620022b93e343453186a163ff14c2de5c7
parent61d571760b3342c25a767c92da88ca7940156374 (diff)
downloademacs-a4d97811ed4a6557ccac4b6a79a52993d8aa0fa3.tar.gz
Bail early from eglot--apply-text-edits if nothing to do
* lisp/progmodes/eglot.el (eglot--apply-text-edits): Early return.
-rw-r--r--lisp/progmodes/eglot.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index dbd3eff67d1..7a076c134fc 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -3219,8 +3219,9 @@ Returns a list as described in docstring of `imenu--index-alist'."
,(eglot--TextDocumentIdentifier))
:cancel-on-input non-essential))))))
-(defun eglot--apply-text-edits (edits &optional version)
+(cl-defun eglot--apply-text-edits (edits &optional version)
"Apply EDITS for current buffer if at VERSION, or if it's nil."
+ (unless edits (cl-return-from eglot--apply-text-edits))
(unless (or (not version) (equal version eglot--versioned-identifier))
(jsonrpc-error "Edits on `%s' require version %d, you have %d"
(current-buffer) version eglot--versioned-identifier))