From 1deb7cf8acbe3280cb76578e2600d8e5de911aef Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Mon, 14 May 2018 22:17:00 +0100 Subject: [PATCH] Fix a ridiculous bug when generating transient projects * eglot.el (eglot--find-current-process, eglot--interactive): Fix horrible bug. --- lisp/progmodes/eglot.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 13aeff69569..11d048e03aa 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -136,7 +136,7 @@ called interactively." (defun eglot--find-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))) @@ -208,7 +208,7 @@ called interactively." "\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 -- 2.39.2