Mercurial > emacs
comparison lisp/timezone.el @ 64210:3e480e2df335
(timezone-parse-date): Changed first regexp
so it will not mistakenly match dates with no time zone.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 10 Jul 2005 17:19:28 +0000 |
parents | 6fb026ad601f |
children | 41bb365f41c4 fbb2bea03df9 |
comparison
equal
deleted
inserted
replaced
64209:193c8e4fb4d1 | 64210:3e480e2df335 |
---|---|
147 (month nil) | 147 (month nil) |
148 (day nil) | 148 (day nil) |
149 (time nil) | 149 (time nil) |
150 (zone nil)) ;This may be nil. | 150 (zone nil)) ;This may be nil. |
151 (cond ((string-match | 151 (cond ((string-match |
152 "\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]*\\([-+a-zA-Z0-9]+\\)" date) | 152 "\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]+\\([-+a-zA-Z0-9]+\\)" date) |
153 ;; Styles: (1) and (2) with timezone and buggy timezone | 153 ;; Styles: (1) and (2) with timezone and buggy timezone |
154 ;; This is most common in mail and news, | 154 ;; This is most common in mail and news, |
155 ;; so it is worth trying first. | 155 ;; so it is worth trying first. |
156 (setq year 3 month 2 day 1 time 4 zone 5)) | 156 (setq year 3 month 2 day 1 time 4 zone 5)) |
157 ((string-match | 157 ((string-match |