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

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

[elpa] externals/dired-duplicates 193e498e5d 25/57: Fix indentation and


From: ELPA Syncer
Subject: [elpa] externals/dired-duplicates 193e498e5d 25/57: Fix indentation and find-duplicates-with-separator-file macro var names
Date: Sat, 4 Nov 2023 06:58:27 -0400 (EDT)

branch: externals/dired-duplicates
commit 193e498e5d716deedbcd0cf15f46c89ba2726fef
Author: Harald Judt <h.judt@gmx.at>
Commit: Harald Judt <h.judt@gmx.at>

    Fix indentation and find-duplicates-with-separator-file macro var names
---
 find-dupes-dired.el | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/find-dupes-dired.el b/find-dupes-dired.el
index d0d7fcafd5..e0627bcdeb 100644
--- a/find-dupes-dired.el
+++ b/find-dupes-dired.el
@@ -71,20 +71,21 @@ return boolean t if the file matches a criteria, otherwise 
nil."
 (defun find-duplicates--ensure-separator-file ()
   "Ensure that the separator file specified by
 `find-duplicates-separator-file' exists."
-    (unless (file-exists-p find-duplicates-separator-file)
-      (make-empty-file find-duplicates-separator-file)))
+  (unless (file-exists-p find-duplicates-separator-file)
+    (make-empty-file find-duplicates-separator-file)))
 
 (defun find-duplicates--remove-separator-file ()
   "Remove the separator file specified by `find-duplicates-separator-file'."
   (when (file-exists-p find-duplicates-separator-file)
     (delete-file find-duplicates-separator-file nil)))
 
-(defmacro find-duplicates-with-separator-file (&rest rest)
+(defmacro find-duplicates-with-separator-file (&rest body)
+  "Ensure separator file gets created and cleaned up before and after BODY."
   `(unwind-protect
-         (progn
-           (when find-duplicates-use-separators
-             (find-duplicates--ensure-separator-file))
-           ,@rest)
+       (progn
+         (when find-duplicates-use-separators
+           (find-duplicates--ensure-separator-file))
+         ,@body)
      (when find-duplicates-use-separators
        (find-duplicates--remove-separator-file))))
 



reply via email to

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