From: teranisi <teranisi>
Date: Fri, 22 Dec 2000 02:55:33 +0000 (+0000)
Subject: * timezone.el (timezone-time-from-absolute): Use `%' instead of `mod'.
X-Git-Tag: apel-10_3~15
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=14d692f10fcfc8f8ad8f3cff93b4ed4f27666acb;p=elisp%2Fapel.git

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

diff --git a/ChangeLog b/ChangeLog
index 291e0ba..7d0b07e 100644
--- 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 ($(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  <morioka@jaist.ac.jp>
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))