changeset 53047:9f2b82f3752a

(timezone-parse-date): Fix style 8 to accept ISO 8601 format (a capital T between the date and the time).
author Alex Schroeder <alex@gnu.org>
date Thu, 13 Nov 2003 18:20:08 +0000
parents 17c705f39f17
children 810931aa5f2d
files lisp/timezone.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/timezone.el	Thu Nov 13 01:47:41 2003 +0000
+++ b/lisp/timezone.el	Thu Nov 13 18:20:08 2003 +0000
@@ -191,11 +191,11 @@
 	   ;; Styles: (8) with timezone.
 	   (setq year 1 month 2 day 3 time 4 zone 5))
 	  ((string-match
-	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+\\)[ \t]+\\([-+a-zA-Z0-9:]+\\)" date)
+	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[T \t]+\\([0-9]+:[0-9]+\\)[ \t]+\\([-+a-zA-Z0-9:]+\\)" date)
 	   ;; Styles: (8) with timezone with a colon in it.
 	   (setq year 1 month 2 day 3 time 4 zone 5))
 	  ((string-match
-	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9]+:[0-9]+\\)" date)
+	    "\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\)[T \t]+\\([0-9]+:[0-9]+:[0-9]+\\)" date)
 	   ;; Styles: (8) without timezone.
 	   (setq year 1 month 2 day 3 time 4 zone nil))
 	  )