From: João Távora <joaotavora@gmail.com>
Date: Mon, 14 May 2018 21:19:23 +0000 (+0100)
Subject: Fix a ridiculous bug when generating transient projects
X-Git-Tag: emacs-29.0.90~1616^2~524^2~4^2~571
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d3e4ea1bdd9cf3e8d2368b897eb5ee6c07a3004;p=emacs.git

Fix a ridiculous bug when generating transient projects

* eglot.el (eglot--find-current-process, eglot--interactive): Fix
horrible bug.
---

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 85b2d89a67a..eb04c720b05 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -79,7 +79,7 @@ lasted more than that many seconds."
 
 (defun eglot--current-process ()
   "The current logical EGLOT process."
-  (let* ((probe (or (project-current) (cons 'transient default-directory))))
+  (let* ((probe (or (project-current) `(transient . ,default-directory))))
     (cl-find major-mode (gethash probe eglot--processes-by-project)
              :key #'eglot--major-mode)))
 
@@ -300,7 +300,7 @@ INTERACTIVE is t if inside interactive call."
                          "\n" base-prompt)))))
     (list
      managed-mode
-     (or (project-current) `(transient . default-directory))
+     (or (project-current) `(transient . ,default-directory))
      (if prompt
          (split-string-and-unquote
           (read-shell-command prompt