diff options
| -rw-r--r-- | lisp/calendar/icalendar.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el index da5d85eaf24..3e2a2f8a858 100644 --- a/lisp/calendar/icalendar.el +++ b/lisp/calendar/icalendar.el | |||
| @@ -618,13 +618,7 @@ FIXME: multiple comma-separated values should be allowed!" | |||
| 618 | (when (and (> (length isodatetimestring) 15) | 618 | (when (and (> (length isodatetimestring) 15) |
| 619 | ;; UTC specifier present | 619 | ;; UTC specifier present |
| 620 | (char-equal ?Z (aref isodatetimestring 15))) | 620 | (char-equal ?Z (aref isodatetimestring 15))) |
| 621 | ;; if not UTC add current-time-zone offset | 621 | (setq zone t)) |
| 622 | ;; current-time-zone should be called with actual UTC time | ||
| 623 | ;; (daylight saving at that time may differ to current one) | ||
| 624 | (setq second (+ (car (current-time-zone | ||
| 625 | (encode-time second minute hour day month year | ||
| 626 | 0))) | ||
| 627 | second))) | ||
| 628 | ;; shift if necessary | 622 | ;; shift if necessary |
| 629 | (if day-shift | 623 | (if day-shift |
| 630 | (let ((mdy (calendar-gregorian-from-absolute | 624 | (let ((mdy (calendar-gregorian-from-absolute |