Function: timezone-zone-to-minute

timezone-zone-to-minute is a byte-compiled function defined in timezone.el.gz.

Signature

(timezone-zone-to-minute TIMEZONE)

Documentation

Translate TIMEZONE to an integer minute offset from GMT.

TIMEZONE can be a cons cell containing the output of current-time-zone, or an integer of the form +-HHMM, or a time zone name.

Source Code

;; Defined in /usr/src/emacs/lisp/timezone.el.gz
;; Miscellaneous

(defun timezone-zone-to-minute (timezone)
  "Translate TIMEZONE to an integer minute offset from GMT.
TIMEZONE can be a cons cell containing the output of `current-time-zone',
or an integer of the form +-HHMM, or a time zone name."
  (cond
     ((consp timezone)
      (/ (car timezone) 60))
     (timezone
      (progn
	(setq timezone
	      (or (cdr (assoc (upcase timezone) timezone-world-timezones))
		  ;; +900
		  timezone))
	(if (stringp timezone)
	    (setq timezone (string-to-number timezone)))
	;; Taking account of minute in timezone.
	;; HHMM -> MM
	(let* ((abszone (abs timezone))
               (minutes (+ (* 60 (/ abszone 100)) (% abszone 100))))
          (if (< timezone 0) (- minutes) minutes))))
     (t 0)))