Commit 96636a8e authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Fix up iso8601 time match regexp

* lisp/calendar/iso8601.el (iso8601--time-match): The fraction
mark can be either . or , and there can be arbitrarily many digits
in the fraction.
parent 46eb6df4
......@@ -83,7 +83,7 @@
iso8601--ordinal-date-match)))
(defconst iso8601--time-match
"\\([0-9][0-9]\\):?\\([0-9][0-9]\\)?:?\\([0-9][0-9]\\)?\\.?\\([0-9][0-9][0-9]\\)?")
"\\([0-9][0-9]\\):?\\([0-9][0-9]\\)?:?\\([0-9][0-9]\\)?[.,]?\\([0-9]+\\)?")
(defconst iso8601--zone-match
"\\(Z\\|\\([-+]\\)\\([0-9][0-9]\\):?\\([0-9][0-9]\\)?\\)")
......@@ -232,7 +232,7 @@ well as variants like \"2008W32\" (week number) and
(string-to-number (match-string 3 time))))
;; Hm...
(_millisecond (and (match-string 4 time)
(string-to-number (match-string 4 time)))))
(string-to-number (match-string 4 time)))))
(iso8601--decoded-time :hour hour
:minute (or minute 0)
:second (or second 0)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment