[elpa] externals/dired-duplicates 86a12647a5 23/57: flymake: Fix unknown and deprecated function warnings

[ELPA Syncer]

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

    flymake: Fix unknown and deprecated function warnings
---
 find-dupes-dired.el | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/find-dupes-dired.el b/find-dupes-dired.el
index fbac7558f5..d945f32998 100644
--- a/find-dupes-dired.el
+++ b/find-dupes-dired.el
@@ -61,11 +61,11 @@ return boolean t if the file matches a criteria, otherwise 
nil."
          (exec (executable-find find-duplicates-checksum-exec t)))
     (unless exec
       (error "Checksum program %s not found in exec-path!" exec))
-    (first (split-string
-            (shell-command-to-string
-             (concat exec " \"" (expand-file-name (file-local-name file)) 
"\""))
-            nil
-            t))))
+    (car (split-string
+          (shell-command-to-string
+           (concat exec " \"" (expand-file-name (file-local-name file)) "\""))
+          nil
+          t))))
 
 (defun find-duplicates--ensure-separator-file ()
   "Ensure that the separator file specified by
@@ -91,7 +91,7 @@ return boolean t if the file matches a criteria, otherwise 
nil."
   "Apply file filter functions to FILES, returning the resulting list."
   (if (and find-duplicates-file-filter-functions files)
       (dolist (filter-func find-duplicates-file-filter-functions files)
-        (setf files (delete-if-not filter-func files)))
+        (setf files (cl-delete-if-not filter-func files)))
     files))
 
 (defun find-duplicates--find-and-filter-files (directories)
@@ -119,7 +119,7 @@ keys and a list of size and duplicate files as values."
                     do
                     (if (> (length same-files) 1)
                         (setf (gethash checksum checksum-table)
-                              (cons (file-attribute-size (file-attributes 
(first same-files)))
+                              (cons (file-attribute-size (file-attributes (car 
same-files)))
                                     (sort same-files #'string<)))
                       (remhash checksum checksum-table)))
            (cl-return checksum-table)))
@@ -133,11 +133,11 @@ optionally separated by a separator file specified by
                                    find-duplicates-directories))
            with sorted-sums = (cl-sort
                                (cl-loop for k being the hash-key in 
dupes-table using (hash-value v)
-                                        collect (list k (first v)))
+                                        collect (list k (car v)))
                                find-duplicates-size-comparison-function
-                               :key #'second)
+                               :key #'cl-second)
            for (checksum) in sorted-sums
-           append (rest (gethash checksum dupes-table))
+           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)
@@ -145,7 +145,7 @@ optionally separated by a separator file specified by
 generated by find-duplicates."
   (message "Looking for remaining duplicate files...")
   (setq-local dired-directory
-              (append (list (first dired-directory))
+              (append (list (car dired-directory))
                       (find-duplicates--generate-dired-list)))
   (message "Reverting buffer complete.")
   (find-duplicates-with-separator-file