* timezone.el (timezone-time-from-absolute): Use `%' instead of `mod'.

diff --git a/ChangeLog b/ChangeLog
index 291e0ba..7d0b07e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-22  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * timezone.el (timezone-time-from-absolute): Use `%' instead of `mod'.
+
 2000-12-21  Katsumi Yamaoka   <yamaoka@jpl.org>
 
        * poe-18.el (numberp, mod): Removed.
@@ -2772,7 +2776,7 @@
 
        * APEL: Version 8.4 was released.
 
-       * EMU-ELS: Don't use HIRAGANA LETTER A (\e$(B$"\e(B) to detect character
+       * EMU-ELS: Don't use HIRAGANA LETTER A (\e$B$"\e(B) to detect character
        indexing (Emacs 20.3 or later).
 
 1998-04-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>

diff --git a/timezone.el b/timezone.el
index 333bd90..8db1d85 100644 (file)
--- 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))