branch: elpa/helm
commit 27efb97d398d077782652f32e0adda6d6fd1f894
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Improve wdired advice
---
helm-lib.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/helm-lib.el b/helm-lib.el
index f08f34004b..f15cb18b3d 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -265,11 +265,9 @@ available APPEND is ignored."
;; Replace in `dired-directory' files that have
;; been modified with their new name keeping
;; the ones that are unmodified at the same place.
- (cl-loop with old-to-rename = (mapcar 'car
files-renamed)
- for f in (cdr dired-directory)
- if (member f old-to-rename)
- collect (assoc-default f files-renamed)
- else collect f))))
+ (cl-loop for f in (cdr dired-directory)
+ collect (or (assoc-default f files-renamed)
+ f)))))
;; Re-sort the buffer if all went well.
(unless (> errors 0) (revert-buffer))
(let ((inhibit-read-only t))
