From: teranisi <teranisi>
Date: Fri, 4 Feb 2000 04:15:50 +0000 (+0000)
Subject: * timezone.el (timezone-floor): Eliminated.
X-Git-Tag: apel-10_2~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4605e992219979eb9027c6c3bca1ba0b89038fe4;p=elisp%2Fapel.git

* timezone.el (timezone-floor): Eliminated.
  (timezone-fix-time-2): Use `floor' instead of `timezone-floor'.
---

diff --git a/ChangeLog b/ChangeLog
index de64e60..406997a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2000-02-04  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* timezone.el (timezone-floor): Eliminated.
+	(timezone-fix-time-2): Use `floor' instead of `timezone-floor'.
+
 	* poe-18.el (current-time): Fixed leap year count bug.
 	(set-time-zone-rule): New function.
 	(current-time-zone): Use `set-time-zone-rule'.
diff --git a/timezone.el b/timezone.el
index 59bb091..333bd90 100644
--- a/timezone.el
+++ b/timezone.el
@@ -409,7 +409,7 @@ If TIMEZONE is nil, use the local time zone."
 	 (diff   (- (timezone-zone-to-minute timezone)
 		    (timezone-zone-to-minute local)))
 	 (minute (+ minute diff))
-	 (hour-fix (timezone-floor minute 60)))
+	 (hour-fix (floor minute 60)))
     (setq hour (+ hour hour-fix))
     (setq minute (- minute (* 60 hour-fix)))
     ;; HOUR may be larger than 24 or smaller than 0.
@@ -487,17 +487,6 @@ The Gregorian date Sunday, December 31, 1 BC is imaginary."
      (- (/ (1- year) 100));;	- century years
      (/ (1- year) 400)));;	+ Gregorian leap years
 
-(defun timezone-floor (n &optional divisor)
-  "Return the largest integer no grater than N.
-With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR."
-  (if (fboundp 'floor)
-      (floor n divisor)
-    (if (null divisor)
-	(setq divisor 1))
-    (if (< n 0)
-	(- (/ (- divisor 1 n) divisor))
-      (/ n divisor))))
-
 ;;; @ End.
 ;;;