From 1f39da3098a2a4cec9985e6db934ed14b7b522b7 Mon Sep 17 00:00:00 2001 From: Stephen Leake Date: Tue, 22 Nov 2022 11:43:22 -0800 Subject: [PATCH] * lisp/progmodes/eglot.el (eglot--connect): Use project-name As discussed in bug#48747. --- lisp/progmodes/eglot.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index bbd902c1c7d..e057b12e0ee 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -1181,7 +1181,9 @@ Each function is passed the server as an argument") "Connect to MANAGED-MODES, LANGUAGE-ID, PROJECT, CLASS and CONTACT. This docstring appeases checkdoc, that's all." (let* ((default-directory (project-root project)) - (nickname (file-name-base (directory-file-name default-directory))) + (nickname (if (fboundp 'project-name) + (project-name project) + (file-name-base (directory-file-name default-directory)))) (readable-name (format "EGLOT (%s/%s)" nickname managed-modes)) autostart-inferior-process server-info -- 2.39.5