Function: htz:time-fix

htz:time-fix is a byte-compiled function defined in htz.el.

Signature

(htz:time-fix YEAR MONTH DAY HOUR MINUTE SECOND)

Documentation

Fix date and time given by YEAR, MONTH, DAY, HOUR, MINUTE and SECOND.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/htz.el
(defun htz:time-fix (year month day hour minute second)
  "Fix date and time given by YEAR, MONTH, DAY, HOUR, MINUTE and SECOND."
  (cond ((<= 24 hour)			; 24 -> 00
	 (setq hour (- hour 24))
	 (setq day  (1+ day))
	 (if (< (htz:last-day-of-month month year) day)
	     (progn
	       (setq month (1+ month))
	       (setq day 1)
	       (if (< 12 month)
		   (progn
		     (setq month 1)
		     (setq year (1+ year)))))))
	((> 0 hour)
	 (setq hour (+ hour 24))
	 (setq day  (1- day))
	 (if (> 1 day)
	     (progn
	       (setq month (1- month))
	       (if (> 1 month)
		   (progn
		     (setq month 12)
		     (setq year (1- year))))
	       (setq day (htz:last-day-of-month month year))))))
  (vector year month day hour minute second))