diff options
Diffstat (limited to 'lisp/calendar/icalendar.el')
| -rw-r--r-- | lisp/calendar/icalendar.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index c2688705e30..3c46982c7b0 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el @@ -628,6 +628,7 @@ FIXME: multiple comma-separated values should be allowed!" (when (> (length isodatetimestring) 14) ;; seconds present (setq second (read (substring isodatetimestring 13 15)))) + ;; FIXME: Support subseconds. (when (and (> (length isodatetimestring) 15) ;; UTC specifier present (char-equal ?Z (aref isodatetimestring 15))) @@ -703,6 +704,7 @@ FIXME: multiple comma-separated values should be allowed!" (setq minutes (read (substring isodurationstring (match-beginning 10) (match-end 10))))) + ;; FIXME: Support subseconds. (if (match-beginning 11) (setq seconds (read (substring isodurationstring (match-beginning 12) @@ -719,9 +721,12 @@ FIXME: multiple comma-separated values should be allowed!" "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? + ;; FIXME: does this function exist already? Can we use decoded-time-add? (decode-time (encode-time - (+ (decoded-time-second time1) (decoded-time-second time2)) + ;; 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)) |