aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoão Távora2023-04-29 20:46:12 +0100
committerJoão Távora2023-04-29 20:46:12 +0100
commitc604cb6a8a5ac4ca1cfb5e839ca6d7ad1d77b5b8 (patch)
treea1e42ef926dda477039a5e19192cf6eb46f4e788
parente03cfec0a455dd8c496d33c422c8edb9ac5a4005 (diff)
downloademacs-c604cb6a8a5ac4ca1cfb5e839ca6d7ad1d77b5b8.tar.gz
emacs-c604cb6a8a5ac4ca1cfb5e839ca6d7ad1d77b5b8.zip
Eglot: unbreak for Emacs 26
Emacs 26 doesn't have newer progress-reporter-update. I think I'll start using compat.el soon. * lisp/progmodes/eglot.el (eglot--apply-text-edits): Unbreak for Emacs 26 which doesn't have newer progress-reporter-update.
-rw-r--r--lisp/progmodes/eglot.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 6ae27a13845..53bc25a1b7e 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -2237,7 +2237,7 @@ COMMAND is a symbol naming the command."
2237 ((eq (car pr) 'eglot--mode-line-reporter) 2237 ((eq (car pr) 'eglot--mode-line-reporter)
2238 (setcdr (cddr pr) (list msg pcnt)) 2238 (setcdr (cddr pr) (list msg pcnt))
2239 (force-mode-line-update t)) 2239 (force-mode-line-update t))
2240 (pr (progress-reporter-update pr pcnt msg))))) 2240 (pr (eglot--reporter-update pr pcnt msg)))))
2241 (eglot--dbind ((WorkDoneProgress) kind title percentage message) value 2241 (eglot--dbind ((WorkDoneProgress) kind title percentage message) value
2242 (pcase kind 2242 (pcase kind
2243 ("begin" 2243 ("begin"
@@ -3341,7 +3341,7 @@ Returns a list as described in docstring of `imenu--index-alist'."
3341 (save-restriction 3341 (save-restriction
3342 (narrow-to-region beg end) 3342 (narrow-to-region beg end)
3343 (replace-buffer-contents temp))) 3343 (replace-buffer-contents temp)))
3344 (progress-reporter-update reporter (cl-incf done))))))) 3344 (eglot--reporter-update reporter (cl-incf done)))))))
3345 (mapcar (eglot--lambda ((TextEdit) range newText) 3345 (mapcar (eglot--lambda ((TextEdit) range newText)
3346 (cons newText (eglot--range-region range 'markers))) 3346 (cons newText (eglot--range-region range 'markers)))
3347 (reverse edits))) 3347 (reverse edits)))