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

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

[nongnu] elpa/wfnames 924319f51a 23/98: Fixup comments


From: ELPA Syncer
Subject: [nongnu] elpa/wfnames 924319f51a 23/98: Fixup comments
Date: Tue, 8 Aug 2023 04:01:13 -0400 (EDT)

branch: elpa/wfnames
commit 924319f51a1a482486c6d950ed8bbd0358b7a662
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fixup comments
---
 helm-edit-marked.el | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/helm-edit-marked.el b/helm-edit-marked.el
index 975d3bd62a..2d3969f236 100644
--- a/helm-edit-marked.el
+++ b/helm-edit-marked.el
@@ -81,7 +81,7 @@ Special commands:
                              (end (point-at-eol))
                              (old (get-text-property (point) 'old-name))
                              (new (buffer-substring-no-properties beg end)))
-                        (unless (string= old new) ; not modified.
+                        (unless (string= old new) ; not modified, skip.
                           (cond (;; New file exists and is one of the
                                  ;; next files to rename, make a temp
                                  ;; file of OLD and assign this temp
@@ -106,11 +106,11 @@ Special commands:
                                    (add-text-properties
                                     beg end `(old-name ,new))
                                    (cl-incf skipped)))
-                                ;; New file exists but is not part of
-                                ;; the next files to rename, make a
-                                ;; temp file of NEW and delay renaming
-                                ;; to next turn.
-                                ((and (file-exists-p new)
+                                (;; New file exists but is not part of
+                                 ;; the next files to rename, make a
+                                 ;; temp file of NEW and delay renaming
+                                 ;; to next turn.
+                                 (and (file-exists-p new)
                                       (not (assoc new delayed)))
                                  ;; Maybe ask.
                                  (if (or (null 
helm-ff-edit-marked-interactive-rename)
@@ -125,8 +125,7 @@ Special commands:
                                    (add-text-properties
                                     beg end `(old-name ,new))
                                    (cl-incf skipped)))
-                                ;; Now really rename files.
-                                (t
+                                (t ; Now really rename files.
                                  (when 
helm-ff-edit-marked-create-parent-directories
                                    ;; Check if base directory of new exists.
                                    (let ((basedir (helm-basedir new 'parent)))



reply via email to

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