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 |