From b1083ebca21fcda01d4f4093acf8b2092ef4c3a8 Mon Sep 17 00:00:00 2001 From: Corentin Date: Sun, 16 Jul 2023 19:54:37 +0900 Subject: [PATCH] Only call file-truename in lsp-find-session-folder --- lsp-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lsp-mode.el b/lsp-mode.el index b16d98451d..2e08714af1 100644 --- a/lsp-mode.el +++ b/lsp-mode.el @@ -1306,8 +1306,8 @@ FORMAT and ARGS i the same as for `message'." (defalias 'lsp-file-local-name 'file-local-name) (defun lsp-f-canonical (file-name) - "Return the canonical FILE-NAME, without a trailing slash (follow symlink)." - (directory-file-name (file-truename (expand-file-name file-name)))) + "Return the canonical FILE-NAME, without a trailing slash." + (directory-file-name (expand-file-name file-name))) (defalias 'lsp-canonical-file-name 'lsp-f-canonical) @@ -8863,7 +8863,7 @@ Select action: " (defun lsp-find-session-folder (session file-name) "Look in the current SESSION for folder containing FILE-NAME." - (let ((file-name-canonical (lsp-f-canonical file-name))) + (let ((file-name-canonical (file-truename file-name))) (->> session (lsp-session-folders) (--filter (and (lsp--files-same-host it file-name-canonical)