From: teranisi <teranisi>
Date: Thu, 23 Dec 1999 13:42:30 +0000 (+0000)
Subject: * timezone.el (timezone-abs): Eliminated.
X-Git-Tag: apel-10_0~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=49556b1eb338487d82a3c463aa583e9d13fda6b2;p=elisp%2Fapel.git

* timezone.el (timezone-abs): Eliminated.
 (timezone-zone-to-minute): Use `abs' instead of `timezone-abs'.

* poe-18.el (current-time-zone): Use `abs'.
---

diff --git a/ChangeLog b/ChangeLog
index acdeb96..5b4068a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+1999-12-23  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* timezone.el (timezone-abs): Eliminated.
+	(timezone-zone-to-minute): Use `abs' instead of `timezone-abs'.
+
+	* poe-18.el (current-time-zone): Use `abs'.
+
 1999-12-23  Keiichi Suzuki  <keiichi@nanap.org>
 
 	* product.el: Fix file header. `checkdoc' fix.
diff --git a/poe-18.el b/poe-18.el
index f5597e2..edba3e0 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -265,7 +265,7 @@ the data it can't find."
 	  (setq timezone (string-to-int timezone)))
       ;; Taking account of minute in timezone.
       ;; HHMM -> MM
-      (setq abszone (if (< timezone 0) (- timezone) timezone))
+      (setq abszone (abs timezone))
       (setq seconds (* 60 (+ (* 60 (/ abszone 100)) (% abszone 100))))
       (list (if (< timezone 0) (- seconds) seconds)
 	    local-timezone))))
diff --git a/timezone.el b/timezone.el
index 667f7ea..59bb091 100644
--- a/timezone.el
+++ b/timezone.el
@@ -273,7 +273,7 @@ or an integer of the form +-HHMM, or a time zone name."
 	    (setq timezone (string-to-int timezone)))
 	;; Taking account of minute in timezone.
 	;; HHMM -> MM
-	(let* ((abszone (timezone-abs timezone))
+	(let* ((abszone (abs timezone))
  	       (minutes (+ (* 60 (/ abszone 100)) (% abszone 100))))
  	  (if (< timezone 0) (- minutes) minutes))))
      (t 0)))
@@ -487,12 +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-abs (n)
-  "Return the absolute value of N."
-  (if (fboundp 'abs)
-      (abs n)
-    (if (< n 0) (- n) n)))
-
 (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."