From: Liu Hui <ilupin@users.noreply.github.com>
Date: Fri, 11 Jun 2021 22:49:19 +0000 (+0800)
Subject: Consider tramp in eglot-alternatives
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~130
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d1375df484e10668552ba23cea0778bf9e374c4;p=emacs.git

Consider tramp in eglot-alternatives

* eglot.el (eglot-alternatives): Use eglot--executable-find.

Copyright-paperwork-exempt: yes
GitHub-reference: fix https://github.com/joaotavora/eglot/issues/702
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 4ead874eec5..a6c60e95781 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -104,7 +104,8 @@ argument."
   (lambda (&optional interactive)
     (let* ((listified (cl-loop for a in alternatives
                                collect (if (listp a) a (list a))))
-           (available (cl-remove-if-not #'executable-find listified :key #'car)))
+           (available (cl-remove-if-not (lambda (a) (eglot--executable-find a t))
+                                        listified :key #'car)))
       (cond ((and interactive (cdr available))
              (let ((chosen (completing-read
                             "[eglot] More than one server executable available:"