From 14d692f10fcfc8f8ad8f3cff93b4ed4f27666acb Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 22 Dec 2000 02:55:33 +0000 Subject: [PATCH] * timezone.el (timezone-time-from-absolute): Use `%' instead of `mod'. --- ChangeLog | 6 +++++- timezone.el | 14 +++++++------- 2 files changed, 12 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 291e0ba..7d0b07e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-12-22 Yuuichi Teranishi + + * timezone.el (timezone-time-from-absolute): Use `%' instead of `mod'. + 2000-12-21 Katsumi Yamaoka * poe-18.el (numberp, mod): Removed. @@ -2772,7 +2776,7 @@ * APEL: Version 8.4 was released. - * EMU-ELS: Don't use HIRAGANA LETTER A ($(B$"(B) to detect character + * EMU-ELS: Don't use HIRAGANA LETTER A ($B$"(B) to detect character indexing (Emacs 20.3 or later). 1998-04-20 MORIOKA Tomohiko diff --git a/timezone.el b/timezone.el index 333bd90..8db1d85 100644 --- a/timezone.el +++ b/timezone.el @@ -288,8 +288,8 @@ Gregorian date Sunday, December 31, 1 BC." ;; (timezone-absolute-from-gregorian 1 1 1970) (days (- date current-time-origin)) (days-1 (/ days 65536)) - (days-2 (mod (/ days 256) 256)) - (days-3 (mod days 256)) + (days-2 (% (/ days 256) 256)) + (days-3 (% days 256)) ;; (seconds-per-day (float 86400)) (seconds-per-day-1 1) (seconds-per-day-2 81) @@ -300,25 +300,25 @@ Gregorian date Sunday, December 31, 1 BC." ;; (hibase (* hi current-time-arithmetic-base)) ;; (lo (floor (- seconds hibase))) (seconds-1 (/ seconds 65536)) - (seconds-2 (mod (/ seconds 256) 256)) - (seconds-3 (mod seconds 256)) + (seconds-2 (% (/ seconds 256) 256)) + (seconds-3 (% seconds 256)) hi lo r seconds-per-day*days-1 seconds-per-day*days-2 seconds-per-day*days-3) (setq r (* days-3 seconds-per-day-3) - seconds-per-day*days-3 (mod r 256)) + seconds-per-day*days-3 (% r 256)) (setq r (+ (/ r 256) (* days-2 seconds-per-day-3) (* days-3 seconds-per-day-2)) - seconds-per-day*days-2 (mod r 256)) + seconds-per-day*days-2 (% r 256)) (setq seconds-per-day*days-1 (+ (/ r 256) (* days-1 seconds-per-day-3) (* (/ days 256) seconds-per-day-2) (* days seconds-per-day-1))) (setq r (+ seconds-2 seconds-per-day*days-2) - seconds-2 (mod r 256) + seconds-2 (% r 256) seconds-1 (+ seconds-1 (/ r 256))) (setq lo (+ (* seconds-2 256) seconds-3 seconds-per-day*days-3)) -- 1.7.10.4