Mercurial > emacs
changeset 5001:f3a55af8f584
(calendar-absolute-from-time): Undo Sep 14 patch.
Fix comments instead, since they didn't match the code.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 13 Nov 1993 23:59:53 +0000 |
| parents | 719f0190c04a |
| children | a2d961cb63b0 |
| files | lisp/calendar/cal-dst.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-dst.el Sat Nov 13 11:20:56 1993 +0000 +++ b/lisp/calendar/cal-dst.el Sat Nov 13 23:59:53 1993 +0000 @@ -63,8 +63,8 @@ (cons (+ calendar-system-time-basis ;; floor((2^16 h +l) / (60*60*24)) (* 512 (floor h 675)) (floor u 675)) - ;; (2^16 h +l) % (60*60*24) - (+ (* (% u 675) 128) (% l 128))))) + ;; (2^16 h +l) mod (60*60*24) + (+ (* (mod u 675) 128) (mod l 128))))) (defun calendar-time-from-absolute (abs-date s) "Time of absolute date ABS-DATE, S seconds after midnight. @@ -77,9 +77,9 @@ (u (+ (* 163 (mod a 512)) (floor s 128)))) ;; Overflow is a terrible thing! (cons - ;; (60*60*24*a + s) / 2^16 + ;; floor((60*60*24*a + s) / 2^16) (+ a (* 163 (floor a 512)) (floor u 512)) - ;; (60*60*24*a + s) % 2^16 + ;; (60*60*24*a + s) mod 2^16 (+ (* 128 (mod u 512)) (mod s 128))))) (defun calendar-next-time-zone-transition (time)