[elpa] externals/consult abd51b5563 5/5: Ensure that known project directories are abbreviated

[ELPA Syncer]

branch: externals/consult
commit abd51b55637d9d296b484480e7c020b0f99cb82b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Ensure that known project directories are abbreviated
---
 consult.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 594f855274..a27d4565a3 100644
--- a/consult.el
+++ b/consult.el
@@ -4009,7 +4009,9 @@ If NORECORD is non-nil, do not record the buffer switch 
in the buffer list."
     :state    ,#'consult--file-state
     :enabled  ,(lambda () consult-project-function)
     :items
-    ,(lambda () (funcall consult-project-function 'known-projects)))
+    ,(lambda ()
+       (mapcar #'abbreviate-file-name
+               (funcall consult-project-function 'known-projects))))
   "Project root directory source for `consult-buffer'.")
 
 (defvar consult--source-project-recent-file