From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sun, 22 Oct 2017 07:29:04 +0000 (-0700)
Subject: Fix xdg timestamp error on 32-bit Emacs
X-Git-Tag: emacs-26.0.91~493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2bfa42855bf0278497f2e4540eac2086dab254c3;p=emacs.git

Fix xdg timestamp error on 32-bit Emacs

* lisp/xdg.el (xdg-thumb-mtime): Return an Emacs timestamp,
not an integer.  This avoids signaling an error on 32-bit
Emacs, where timestamps typically do not fit into fixnums
(Bug#28921).
---

diff --git a/lisp/xdg.el b/lisp/xdg.el
index 76106f42586..e73e6199d6f 100644
--- a/lisp/xdg.el
+++ b/lisp/xdg.el
@@ -93,8 +93,8 @@ file:///foo/bar.jpg"
   (concat (md5 (xdg-thumb-uri filename)) ".png"))
 
 (defun xdg-thumb-mtime (filename)
-  "Return modification time of FILENAME as integral seconds from the epoch."
-  (floor (float-time (nth 5 (file-attributes filename)))))
+  "Return modification time of FILENAME as an Emacs timestamp."
+  (file-attribute-modification-time (file-attributes filename)))
 
 
 ;; XDG User Directories