emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs-26 c63b344: Fix range-error in image-dired.el


From: Eli Zaretskii
Subject: [Emacs-diffs] emacs-26 c63b344: Fix range-error in image-dired.el
Date: Mon, 16 Oct 2017 12:26:23 -0400 (EDT)

branch: emacs-26
commit c63b344c3d5f6278a189a16099ee6310fad9fbd7
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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 f48f1a1..30ecc2b 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]