From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 16 Oct 2017 16:25:01 +0000 (+0300)
Subject: Fix range-error in image-dired.el
X-Git-Tag: emacs-26.0.91~539
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c63b344c3d;p=emacs.git

Fix range-error in image-dired.el

* lisp/image-dired.el (image-dired-create-thumb-1): Avoid
overflowing an Emacs integer on 32-bit hosts.  (Bug#28809)
---

diff --git a/lisp/image-dired.el b/lisp/image-dired.el
index f48f1a1b874..30ecc2befc7 100644
--- a/lisp/image-dired.el
+++ b/lisp/image-dired.el
@@ -748,7 +748,10 @@ Increase at own risk.")
    'image-dired-cmd-create-thumbnail-program)
   (let* ((width (int-to-string (image-dired-thumb-size 'width)))
          (height (int-to-string (image-dired-thumb-size 'height)))
-         (modif-time (floor (float-time (nth 5 (file-attributes original-file)))))
+         (modif-time
+          (format "%.0f"
+                  (ffloor (float-time
+                           (nth 5 (file-attributes original-file))))))
          (thumbnail-nq8-file (replace-regexp-in-string ".png\\'" "-nq8.png"
                                                        thumbnail-file))
          (spec