File tree Expand file tree Collapse file tree 1 file changed +6
-7
lines changed Expand file tree Collapse file tree 1 file changed +6
-7
lines changed Original file line number Diff line number Diff line change @@ -313,13 +313,12 @@ PATH is the current folder to be checked."
313
313
(defun lsp-headerline--build-path-up-to-project-string ()
314
314
" Build the path-up-to-project segment for the breadcrumb."
315
315
(if-let ((root (lsp-headerline--workspace-root)))
316
- (let ((segments (progn
317
- (unless lsp-headerline--path-up-to-project-segments
318
- (setq lsp-headerline--path-up-to-project-segments
319
- (list (lsp-headerline--path-up-to-project-root
320
- root
321
- (file-name-directory (file-truename (buffer-file-name )))))))
322
- (car lsp-headerline--path-up-to-project-segments))))
316
+ (let ((segments (or
317
+ lsp-headerline--path-up-to-project-segments
318
+ (setq lsp-headerline--path-up-to-project-segments
319
+ (lsp-headerline--path-up-to-project-root
320
+ root
321
+ (lsp-f-parent (buffer-file-name )))))))
323
322
(mapconcat (lambda (next-dir )
324
323
(propertize next-dir
325
324
'font-lock-face
You can’t perform that action at this time.
0 commit comments