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

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

[nongnu] elpa/wfnames 810aea61db 38/98: Long lines only


From: ELPA Syncer
Subject: [nongnu] elpa/wfnames 810aea61db 38/98: Long lines only
Date: Tue, 8 Aug 2023 04:01:17 -0400 (EDT)

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

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

diff --git a/wfnames.el b/wfnames.el
index e0b2d0a8df..235635754e 100644
--- a/wfnames.el
+++ b/wfnames.el
@@ -145,12 +145,14 @@ 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 (car (find-backup-file-name 
new))))
                                        (rename-file new tmpfile))
                                    ;; Answer is no, skip.
                                    (add-text-properties
@@ -164,12 +166,14 @@ 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 (car (find-backup-file-name 
new))))
                                        (rename-file new tmpfile))
                                    ;; Answer is no, skip.
                                    (add-text-properties



reply via email to

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