diff options
| author | Stephen Leake <stephen_leake@stephe-leake.org> | 2022-11-22 11:43:22 -0800 |
|---|---|---|
| committer | Stephen Leake <stephen_leake@stephe-leake.org> | 2022-11-22 11:43:22 -0800 |
| commit | 1f39da3098a2a4cec9985e6db934ed14b7b522b7 (patch) | |
| tree | 352ff947da65fd72c406391c6622117e1016d178 | |
| parent | 361297c6f4be54d4699c588937d7ceb142ba99d7 (diff) | |
| download | emacs-1f39da3098a2a4cec9985e6db934ed14b7b522b7.tar.gz emacs-1f39da3098a2a4cec9985e6db934ed14b7b522b7.tar.bz2 emacs-1f39da3098a2a4cec9985e6db934ed14b7b522b7.zip | |
* lisp/progmodes/eglot.el (eglot--connect): Use project-name
As discussed in bug#48747.
| -rw-r--r-- | lisp/progmodes/eglot.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |