[elpa] externals/embark 208923d5f3: When exporting files to dired, find deepest common directory

[ELPA Syncer]

branch: externals/embark
commit 208923d5f360c81147cc29f9bc2a18ce9efd112d
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>

    When exporting files to dired, find deepest common directory
---
 embark.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/embark.el b/embark.el
index bd737fceb2..978d4bd53e 100644
--- a/embark.el
+++ b/embark.el
@@ -3172,12 +3172,11 @@ PRED is a predicate function used to filter the items."
                    (let ((file (file-name-nondirectory path)))
                      (or (string= file ".") (string= file ".."))))
                  files)))
-  (let ((buf
-         (dired-noselect
-          (cons
-           ;; TODO: is it worth finding the deepest common containing 
directory?
-           (if (cl-every #'file-name-absolute-p files) "/" default-directory)
-           files))))
+  (let* ((dir (or (file-name-directory (try-completion "" files)) ""))
+         (buf (dired-noselect
+               (cons (expand-file-name dir)
+                     (mapcar (lambda (file) (string-remove-prefix dir file))
+                             files)))))
     (with-current-buffer buf
       (rename-buffer (format "*Embark Export Dired %s*" default-directory)))
     (pop-to-buffer buf)))