procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Simplify icalendar decoding of Z dates

Browse source 
* lisp/calendar/icalendar.el (icalendar--decode-isodatetime):
Simplify calculation of time strings with trailing "Z".
This commit is contained in:
Paul Eggert 2015-07-20 09:47:39 -07:00
parent 057f93499e
commit 136dd7bc02
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/calendar/icalendar.el
View file

@ -618,13 +618,7 @@ FIXME: multiple comma-separated values should be allowed!"
(when (and (> (length isodatetimestring) 15)
;; UTC specifier present
(char-equal ?Z (aref isodatetimestring 15)))
;; if not UTC add current-time-zone offset
;; current-time-zone should be called with actual UTC time
;; (daylight saving at that time may differ to current one)
(setq second (+ (car (current-time-zone
(encode-time second minute hour day month year
0)))
second)))
(setq zone t))
;; shift if necessary
(if day-shift
(let ((mdy (calendar-gregorian-from-absolute