branch: externals/brief
commit 1846c0ea00d18bf8cb47aaf8fcb7150eb94ea2db
Author: Paul Eggert <[email protected]>
Commit: Paul Eggert <[email protected]>
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.
