Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/calendar/time-date.el: Add comment.

Browse source
This commit is contained in:
Paul Eggert 2024-08-14 20:37:12 -07:00
parent c0ccb18d25
commit 2533a60e42
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/calendar/time-date.el
View file

@ -154,6 +154,11 @@ it is assumed that PICO was omitted and should be treated as zero."
DATE should be in one of the forms recognized by `parse-time-string'.
If DATE lacks timezone information, GMT is assumed."
(condition-case err
;; Parse DATE. If it contains a year, use defaults for other components.
;; Then encode the result; this signals an error if the year is missing,
;; because encode-time signals if crucial time components are nil.
;; This heuristic uses local time if the string lacks time zone info,
;; because encode-time treats a nil time zone as local time.
(let ((parsed (parse-time-string date)))
(when (decoded-time-year parsed)
(decoded-time-set-defaults parsed))