From 0d3e4ea1bdd9cf3e8d2368b897eb5ee6c07a3004 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Mon, 14 May 2018 22:19:23 +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 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 -- 2.39.2