[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8602bd8: Fix epg bug with (TICKS . HZ) timestamp
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 8602bd8: Fix epg bug with (TICKS . HZ) timestamp |
Date: |
Mon, 22 Oct 2018 14:00:22 -0400 (EDT) |
branch: master
commit 8602bd855904acc1966f1a94a008f91bb3f88c18
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
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.
---
lisp/epg.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/lisp/epg.el b/lisp/epg.el
index 8f26cd3..9d9bc90 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]+\\) \
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8602bd8: Fix epg bug with (TICKS . HZ) timestamp,
Paul Eggert <=