Function: icalendar--add-decoded-times

icalendar--add-decoded-times is a byte-compiled function defined in icalendar.el.gz.

Signature

(icalendar--add-decoded-times TIME1 TIME2)

Documentation

Add TIME1 to TIME2.

Both times must be given in decoded form. One of these times must be valid (year > 1900 or something).

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/icalendar.el.gz
(defun icalendar--add-decoded-times (time1 time2)
  "Add TIME1 to TIME2.
Both times must be given in decoded form.  One of these times must be
valid (year > 1900 or something)."
  ;; FIXME: does this function exist already?  Can we use decoded-time-add?
  (decode-time (encode-time
		;; FIXME: Support subseconds.
		(time-convert (time-add (decoded-time-second time1)
					(decoded-time-second time2))
			      'integer)
                (+ (decoded-time-minute time1) (decoded-time-minute time2))
                (+ (decoded-time-hour time1) (decoded-time-hour time2))
                (+ (decoded-time-day time1) (decoded-time-day time2))
                (+ (decoded-time-month time1) (decoded-time-month time2))
                (+ (decoded-time-year time1) (decoded-time-year time2))
                nil
                nil
                ;;(or (nth 6 time1) (nth 6 time2)) ;; FIXME?
                )))