emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/embark 5b56203a45: Fix bug using act-all on file select


From: ELPA Syncer
Subject: [elpa] externals/embark 5b56203a45: Fix bug using act-all on file selection with // or /~/ paths
Date: Tue, 1 Aug 2023 18:57:45 -0400 (EDT)

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

    Fix bug using act-all on file selection with // or /~/ paths
    
    Another spot where we need to enforce Emacs's reduction of // and /~/
    in paths. Have I found them all? I need a more systematic approach to
    this.
---
 embark.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index 1ca4bd54ec..eb1b056163 100644
--- a/embark.el
+++ b/embark.el
@@ -2132,7 +2132,7 @@ target bounds.
 
 In the minibuffer only the first target finder returning non-nil
 is taken into account.  When finding targets at point in other
-buffers, all target finder function is executed.
+buffers, all target finder functions are executed.
 
 For each target, the type is then looked up as a key in the
 variable `embark-transformer-alist'.  If there is a transformer
@@ -2319,8 +2319,10 @@ Return a plist with keys `:type', `:orig-type', 
`:candidates', and
       (let ((dir (embark--default-directory)))
         (setq candidates
               (mapcar (lambda (cand)
-                        (abbreviate-file-name (expand-file-name cand dir)))
+                        (abbreviate-file-name
+                         (expand-file-name (substitute-in-file-name cand) 
dir)))
                       candidates))))
+    ;; TODO more systematic approach to applying substitute-in-file-name
     (append
      (list :orig-type type :orig-candidates candidates :bounds bounds)
      (or (when candidates



reply via email to

[Prev in Thread] Current Thread [Next in Thread]