[nongnu] elpa/wfnames 2cf98cdf92 39/98: Long lines only

[ELPA Syncer]

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

    Long lines only
---
 wfnames.el | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/wfnames.el b/wfnames.el
index e0b2d0a8df..0840c014b1 100644
--- a/wfnames.el
+++ b/wfnames.el
@@ -145,13 +145,15 @@ Special commands:
                                       (not (assoc new delayed)))
                                  ;; Maybe ask
                                  (if (or (null wfnames-interactive-rename)
-                                         (y-or-n-p (format "File `%s' exists, 
overwrite? "
-                                                           new)))
+                                         (y-or-n-p
+                                          (format "File `%s' exists, 
overwrite? "
+                                                  new)))
                                      (let ((tmpfile (make-temp-name old)))
                                        (push (cons new tmpfile) delayed)
-                                       (when wfnames-backup-overwrite
-                                         (rename-file new (car 
(find-backup-file-name new))))
-                                       (rename-file new tmpfile))
+                                       (if wfnames-backup-overwrite
+                                           (rename-file
+                                            new (car (find-backup-file-name 
new)))
+                                         (rename-file new tmpfile)))
                                    ;; Answer is no, skip.
                                    (add-text-properties
                                     beg end `(old-name ,new))
@@ -164,13 +166,15 @@ Special commands:
                                       (not (assoc new delayed)))
                                  ;; Maybe ask.
                                  (if (or (null wfnames-interactive-rename)
-                                         (y-or-n-p (format "File `%s' exists, 
overwrite? "
-                                                           new)))
+                                         (y-or-n-p
+                                          (format "File `%s' exists, 
overwrite? "
+                                                  new)))
                                      (let ((tmpfile (make-temp-name new)))
                                        (push (cons new tmpfile) delayed)
-                                       (when wfnames-backup-overwrite
-                                         (rename-file new (car 
(find-backup-file-name new))))
-                                       (rename-file new tmpfile))
+                                       (if wfnames-backup-overwrite
+                                           (rename-file
+                                            new (car (find-backup-file-name 
new)))
+                                         (rename-file new tmpfile)))
                                    ;; Answer is no, skip.
                                    (add-text-properties
                                     beg end `(old-name ,new))