From 49556b1eb338487d82a3c463aa583e9d13fda6b2 Mon Sep 17 00:00:00 2001 From: teranisi Date: Thu, 23 Dec 1999 13:42:30 +0000 Subject: [PATCH] * timezone.el (timezone-abs): Eliminated. (timezone-zone-to-minute): Use `abs' instead of `timezone-abs'. * poe-18.el (current-time-zone): Use `abs'. --- ChangeLog | 7 +++++++ poe-18.el | 2 +- timezone.el | 8 +------- 3 files changed, 9 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index acdeb96..5b4068a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +1999-12-23 Yuuichi Teranishi + + * 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 * 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." -- 1.7.10.4