From 1b41c5d14da0abd5eda3530411b3385e8263fc0b Mon Sep 17 00:00:00 2001 From: Brian Fox Date: Tue, 21 Sep 1993 06:51:15 +0000 Subject: [PATCH] (calendar-absolute-from-time): Fix typo by interchanging (floor) and (%). --- lisp/calendar/cal-dst.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el index 15ce7cd722a..d480914ded8 100644 --- a/lisp/calendar/cal-dst.el +++ b/lisp/calendar/cal-dst.el @@ -64,7 +64,7 @@ absolute date ABS-DATE is the equivalent moment to X." ;; floor((2^16 h +l) / (60*60*24)) (* 512 (floor h 675)) (floor u 675)) ;; (2^16 h +l) % (60*60*24) - (+ (* (mod u 675) 128) (mod l 128))))) + (+ (* (% u 675) 128) (% l 128))))) (defun calendar-time-from-absolute (abs-date s) "Time of absolute date ABS-DATE, S seconds after midnight. -- 2.39.5