[elpa] externals/consult 5116e26cd6 1/2: consult--directory-prompt: Expand paths (Fix #754)

[ELPA Syncer]

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

    consult--directory-prompt: Expand paths (Fix #754)
---
 consult.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 64dcfabb30..9887378a31 100644
--- a/consult.el
+++ b/consult.el
@@ -753,7 +753,9 @@ asked for the directories or files to search via
                                                     
#'completion-file-name-table
                                                     nil t nil 
'file-name-history)))
                  ((and `(,p) (guard (file-directory-p p))) p)
-                 (ps (setq paths ps)
+                 (ps (setq paths (mapcar (lambda (p)
+                                           (file-relative-name 
(expand-file-name p)))
+                                         ps))
                      default-directory)))))
          (edir (file-name-as-directory (expand-file-name dir)))
          (pdir (let ((default-directory edir))