branch: externals/chess
commit e30ddb4e9eda043d0ea357a52017f20e71ec05cf
Author: Paul Eggert <egg...@cs.ucla.edu>
Commit: Paul Eggert <egg...@cs.ucla.edu>
Simplify/port chess clock timer
* packages/chess/chess-clock.el (chess-clock-add-seconds)
(chess-clock-time-to-seconds): Simplify and port to future
Emacs versions planned to use different time stamp formats.
---
chess-clock.el | 12 ++----------
1 file changed, 2 insertions(+), 10 deletions(-)
diff --git a/chess-clock.el b/chess-clock.el
index 2fe7167..c08b4b2 100644
--- a/chess-clock.el
+++ b/chess-clock.el
@@ -32,19 +32,11 @@
(defsubst chess-clock-add-seconds (time seconds)
"To TIME, add SECONDS. Return result as a time value."
- (let* ((secint (truncate seconds))
- (hi (/ secint 65536))
- (lo (% secint 65536))
- (calc (+ (cadr time) lo)))
- (if (< calc 65536)
- (list (+ (car time) hi) calc)
- (list (+ (car time) (1+ hi)) (% calc 65536)))))
+ (time-add time seconds))
(defsubst chess-clock-time-to-seconds (time)
"Convert TIME to a floating point number."
- (+ (* (car time) 65536.0)
- (cadr time)
- (/ (or (car (cdr (cdr time))) 0) 1000000.0)))
+ (float-time time))
(defsubst chess-clock-time-diff (t1 t2)
"Return the difference in seconds between T1 and T2."
