diff options
| author | João Távora | 2023-04-29 20:46:12 +0100 |
|---|---|---|
| committer | João Távora | 2023-04-29 20:46:12 +0100 |
| commit | c604cb6a8a5ac4ca1cfb5e839ca6d7ad1d77b5b8 (patch) | |
| tree | a1e42ef926dda477039a5e19192cf6eb46f4e788 | |
| parent | e03cfec0a455dd8c496d33c422c8edb9ac5a4005 (diff) | |
| download | emacs-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.el | 4 |
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))) |