mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(timezone-fix-time, timezone-zone-to-minute): Simplify with `abs'

Browse Source 
and `floor' functions instead of doing it ourselves.
This commit is contained in:
Paul Eggert 1993-08-10 04:14:17 +00:00
parent c6bfcd1295
commit 9b1868cc53
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/timezone.el
View File

@ -233,10 +233,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
;;(+ (* 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 @@ 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
(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.