diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-31 15:10:38 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-31 21:47:29 +0200 |
commit | 4dcb692de0cf0107149abe501663a1477571bfc0 (patch) | |
tree | 964a46548941cc45eef9b212f013255ab4855bd7 /lisp/calendar | |
parent | e82ae1db3c63449641f65cf249efa5b475da22a2 (diff) | |
download | emacs-4dcb692de0cf0107149abe501663a1477571bfc0.tar.gz |
Default DST to "undecided" in decoded-time-set-defaults
* lisp/calendar/time-date.el (decoded-time-set-defaults): When we
don't have a zone or a DST, set DST to "undecided".
Diffstat (limited to 'lisp/calendar')
-rw-r--r-- | lisp/calendar/time-date.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index 6f851712472..dfe8dce68b1 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el @@ -530,6 +530,12 @@ TIME is modified and returned." (setf (decoded-time-month time) 1)) (unless (decoded-time-year time) (setf (decoded-time-year time) 0)) + + ;; When we don't have a time zone and we don't have a DST, then mark + ;; it as unknown. + (when (and (not (decoded-time-zone time)) + (not (decoded-time-dst time))) + (setf (decoded-time-dst time) -1)) time) (provide 'time-date) |