* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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."