From c63b344c3d5f6278a189a16099ee6310fad9fbd7 Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 16 Oct 2017 19:25:01 +0300
Subject: [PATCH] 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)
---
lisp/image-dired.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
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
--
2.39.5