[nongnu] elpa/spell-fu 073932be78 16/86: Cleanup: replace '(nth 5 ...' with file-attribute-modification-time

[ELPA Syncer]

branch: elpa/spell-fu
commit 073932be78e7656dc7c5c1ae67ffe2b8d50cf2ff
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: replace '(nth 5 ...' with file-attribute-modification-time
---
 spell-fu.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/spell-fu.el b/spell-fu.el
index daaa897494..beca0af402 100644
--- a/spell-fu.el
+++ b/spell-fu.el
@@ -211,9 +211,12 @@ Argument POS return faces at this point."
 (defun spell-fu--file-is-older-list (file-test file-list)
   "Return t when FILE-TEST is older than any files in FILE-LIST."
   (catch 'result
-    (let ((file-test-time (nth 5 (file-attributes file-test))))
+    (let ((file-test-time (file-attribute-modification-time (file-attributes 
file-test))))
       (dolist (file-new file-list)
-        (when (time-less-p file-test-time (nth 5 (file-attributes file-new)))
+        (when
+          (time-less-p
+            file-test-time
+            (file-attribute-modification-time (file-attributes file-new)))
           (throw 'result t)))
       nil)))