[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/brief 1846c0e: Simplify/port brief-current-time
From: |
Paul Eggert |
Subject: |
[elpa] externals/brief 1846c0e: Simplify/port brief-current-time |
Date: |
Sat, 11 Dec 2021 22:12:19 -0500 (EST) |
branch: externals/brief
commit 1846c0ea00d18bf8cb47aaf8fcb7150eb94ea2db
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>
Simplify/port brief-current-time
* brief.el (brief-current-time): Simplify and port it to future Emacs
versions planned to use a different timestamp format.
---
brief.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/brief.el b/brief.el
index b5b26fe..e91ce94 100644
--- a/brief.el
+++ b/brief.el
@@ -624,10 +624,7 @@ If FILE1 or FILE2 does not exist, the return value is
unspecified."
;; Helper functions and macros
(defun brief-current-time ()
"Epoch time in floating point."
- (let ((ct (current-time)))
- (+ (logior (lsh (car ct) 16)
- (cadr ct))
- (* 1e-6 (caddr ct)))))
+ (float-time))
(defvar brief-calibration-value 0.0
"Latest calibration value of UI performance.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/brief 1846c0e: Simplify/port brief-current-time,
Paul Eggert <=