From: Paul Eggert Date: Mon, 22 Oct 2018 17:54:45 +0000 (-0700) Subject: Fix epg bug with (TICKS . HZ) timestamp X-Git-Tag: emacs-27.0.90~4263 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8602bd855904acc1966f1a94a008f91bb3f88c18;p=emacs.git Fix epg bug with (TICKS . HZ) timestamp Problem reported by Joseph Mingrone in: https://lists.gnu.org/r/emacs-devel/2018-10/msg00380.html * lisp/epg.el (epg--time-from-seconds): Just use a seconds count; don’t generate an obsolete-format timestamp. --- diff --git a/lisp/epg.el b/lisp/epg.el index 8f26cd34ee4..9d9bc9051da 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -946,10 +946,7 @@ callback data (if any)." (cons (cons 'no-seckey string) (epg-context-result-for context 'error)))) -(defun epg--time-from-seconds (seconds) - (let ((number-seconds (string-to-number (concat seconds ".0")))) - (cons (floor (/ number-seconds 65536)) - (floor (mod number-seconds 65536))))) +(defalias 'epg--time-from-seconds #'string-to-number) (defun epg--status-ERRSIG (context string) (if (string-match "\\`\\([^ ]+\\) \\([0-9]+\\) \\([0-9]+\\) \