[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eglot ee980cf 39/49: Fixup last commit to fix #627
From: |
Stefan Monnier |
Subject: |
[elpa] externals/eglot ee980cf 39/49: Fixup last commit to fix #627 |
Date: |
Wed, 17 Mar 2021 18:41:49 -0400 (EDT) |
branch: externals/eglot
commit ee980cf59b2bf0ebe0c046d445273d356aee6ce7
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
Fixup last commit to fix #627
* eglot.el (eglot-handle-request): Fixup. Use let*
---
eglot.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/eglot.el b/eglot.el
index 98a1059..86e0d01 100644
--- a/eglot.el
+++ b/eglot.el
@@ -1572,16 +1572,16 @@ COMMAND is a symbol naming the command."
(cl-defmethod eglot-handle-request
(_server (_method (eql window/showMessageRequest)) &key type message actions)
"Handle server request window/showMessageRequest"
- (let ((actions (append actions nil)) ;; gh#627
- (label (completing-read
- (concat
- (format (propertize "[eglot] Server reports (type=%s): %s"
- 'face (if (<= type 1) 'error))
- type message)
- "\nChoose an option: ")
- (or (mapcar (lambda (obj) (plist-get obj :title)) actions)
- '("OK"))
- nil t (plist-get (elt actions 0) :title))))
+ (let* ((actions (append actions nil)) ;; gh#627
+ (label (completing-read
+ (concat
+ (format (propertize "[eglot] Server reports (type=%s): %s"
+ 'face (if (<= type 1) 'error))
+ type message)
+ "\nChoose an option: ")
+ (or (mapcar (lambda (obj) (plist-get obj :title)) actions)
+ '("OK"))
+ nil t (plist-get (elt actions 0) :title))))
(if label `(:title ,label) :null)))
(cl-defmethod eglot-handle-notification
- [elpa] externals/eglot d5b840b 20/49: Fix #606, #Fix 608: fix bug in eglot-code-actions, (continued)
- [elpa] externals/eglot d5b840b 20/49: Fix #606, #Fix 608: fix bug in eglot-code-actions, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot eac5264 21/49: Fix #609: flush pending changes to server before code actions request, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot f68f829 26/49: Close #566: prefer typescript-language-server for JS&TS, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot c73f5ed 27/49: Fix #612: remove duplicate entry for "Registration" LSP type, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot 4ae5a44 28/49: Fix #568: update gopls URL in README.md, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot 8d00f8b 32/49: Per #602: speed up glob matching 2x, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot e57be55 36/49: Fix #502: silence messages while formatting markup, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot 398b81e 35/49: Per #602: simplify dir-watching strategy of w/didChangeWatchedFiles, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot a2d1fc9 37/49: Fix #625: handle null reply for textDocument/definition, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot 92b0c5d 41/49: Fix #610: protect against empty URIs on windows, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot ee980cf 39/49: Fixup last commit to fix #627,
Stefan Monnier <=
- [elpa] externals/eglot 47f8581 47/49: Per #605: indicate support for activeParameter, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot f0c770c 48/49: Fix #555: autoload eglot-workspace-configuration's safe-l-v spec, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot f63abe8 30/49: Fix #418: support phps-mode, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot d784d60 42/49: Fix #635: Correctly protect against zero-length completion items, Stefan Monnier, 2021/03/17
- [elpa] externals/eglot 39473f7 45/49: Fix #626: remove highlight overlays immediately when symbol edited, Stefan Monnier, 2021/03/17