From: Brian Leung <bkleung89@gmail.com>
Date: Sun, 9 Jan 2022 02:08:23 +0000 (-0800)
Subject: Properly print error message of eglot-alternatives
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~100
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0b9018f521292d970cdaed99c47e02b60026e52;p=emacs.git

Properly print error message of eglot-alternatives

* eglot.el (eglot-alternatives): Work with the listified form. This
allows presumed executables provided as (EXECUTABLE &rest ARGS...)
to be displayed in the error.

GitHub-reference: per https://github.com/joaotavora/eglot/issues/786
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index ef9b371af89..922b9225d27 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -114,7 +114,7 @@ chosen (interactively or automatically)."
                                collect (if (listp a) a (list a))))
            (err (lambda ()
                   (error "None of '%s' are valid executables"
-                         (mapconcat #'identity alternatives ", ")))))
+                         (mapconcat #'car listified ", ")))))
       (cond (interactive
              (let* ((augmented (mapcar (lambda (a)
                                          (let ((found (eglot--executable-find