changeset 4510:10baf5e7550f

(timezone-fix-time, timezone-zone-to-minute): Simplify with `abs' and `floor' functions instead of doing it ourselves.
author Paul Eggert <eggert@twinsun.com>
date Tue, 10 Aug 1993 04:14:17 +0000
parents aeef9d07f78d
children db555f6edd6b
files lisp/timezone.el
diffstat 1 files changed, 2 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/timezone.el	Tue Aug 10 04:14:17 1993 +0000
+++ b/lisp/timezone.el	Tue Aug 10 04:14:17 1993 +0000
@@ -233,10 +233,7 @@
 	    (setq timezone (string-to-int timezone)))
 	;; Taking account of minute in timezone.
 	;; HHMM -> MM
-	;;(+ (* 60 (/ timezone 100)) (% timezone 100))
-	;; ANSI C compliance about truncation of integer division
-	;; by eggert@twinsun.com (Paul Eggert)
-	(let* ((abszone (max timezone (- timezone)))
+	(let* ((abszone (abs timezone))
  	       (minutes (+ (* 60 (/ abszone 100)) (% abszone 100))))
  	  (if (< timezone 0) (- minutes) minutes))))
      (t 0)))
@@ -293,12 +290,7 @@
 	 (diff   (- (timezone-zone-to-minute timezone)
 		    (timezone-zone-to-minute local)))
 	 (minute (+ minute diff))
-	 (hour-fix
-	  (if (< minute 0)
-	     ;;(/ (- minute 59) 60) (/ minute 60)
-	     ;; ANSI C compliance about truncation of integer division
-	     ;; by eggert@twinsun.com (Paul Eggert)
-	     (- (/ (- 59 minute) 60)) (/ 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.