diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2017-10-16 19:25:01 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-10-16 19:25:01 +0300 |
| commit | c63b344c3d5f6278a189a16099ee6310fad9fbd7 (patch) | |
| tree | a456fdfcb85cbbd5a157a74130a30d9659d7e13a | |
| parent | 081d2187c4b8b54e8415b304fffafedc4ecfe446 (diff) | |
| download | emacs-c63b344c3d5f6278a189a16099ee6310fad9fbd7.tar.gz | |
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)
| -rw-r--r-- | lisp/image-dired.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |