[elpa] externals/dired-duplicates b5a9eb1cc1 26/57: flymake: Fix warning about unused lexical variables

[ELPA Syncer]

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

    flymake: Fix warning about unused lexical variables
---
 find-dupes-dired.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/find-dupes-dired.el b/find-dupes-dired.el
index e0627bcdeb..35d556e9da 100644
--- a/find-dupes-dired.el
+++ b/find-dupes-dired.el
@@ -142,16 +142,19 @@ optionally separated by a separator file specified by
            append (cdr (gethash checksum dupes-table))
            when find-duplicates-use-separators append (list 
find-duplicates-separator-file)))
 
-(defun find-duplicates-revert-function (&optional arg noconfirm)
-  "Revert function used instead of `dired-revert' for dired buffers
-generated by find-duplicates."
+(defun find-duplicates-dired-revert (&optional arg noconfirm)
+  "Revert function used instead of `dired-revert' for Dired buffers
+generated by `find-duplicates-dired'.
+
+The args ARG and NOCONFIRM are passed through from
+`revert-buffer' to `dired-revert'."
   (message "Looking for remaining duplicate files...")
   (setq-local dired-directory
               (append (list (car dired-directory))
                       (find-duplicates--generate-dired-list)))
   (message "Reverting buffer complete.")
   (find-duplicates-with-separator-file
-   (dired-revert)))
+   (dired-revert arg noconfirm)))
 
 ;;;###autoload
 (defun find-duplicates-dired (directories)
@@ -173,7 +176,7 @@ and show them in a `dired' buffer."
           (find-duplicates-with-separator-file
            (dired (cons "/" results))
            (setq-local find-duplicates-directories directories)
-           (setq-local revert-buffer-function 
'find-duplicates-revert-function)))
+           (setq-local revert-buffer-function 'find-duplicates-dired-revert)))
       (message "No duplicate files found in %s." truncated-dirs))))
 
 (provide 'find-duplicates)