diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-06 17:45:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-06 17:45:55 +0000 |
| commit | 4a12a3d940329a8141eceed25e09058cfcf141f3 (patch) | |
| tree | c0f5bccb0806e9ce2643d7da0720227dab4d78e4 /lisp/timezone.el | |
| parent | 062bf1bf0ed4fc4ffdffb00953ae990f9ee8b3ad (diff) | |
| download | emacs-4a12a3d940329a8141eceed25e09058cfcf141f3.tar.gz | |
(timezone-parse-date): Handle additional style (9).
Diffstat (limited to 'lisp/timezone.el')
| -rw-r--r-- | lisp/timezone.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/timezone.el b/lisp/timezone.el index 949a7f12dc2..122b986e0d5 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -131,7 +131,8 @@ Understands the following styles: (5) 22-AUG-1993 10:59:12.82 (6) Thu, 11 Apr 16:17:12 91 [MET] (7) Mon, 6 Jul 16:47:20 T 1992 [MET] - (8) 1996-06-24 21:13:12 [GMT]" + (8) 1996-06-24 21:13:12 [GMT] + (9) 1996-06-24 21:13-ZONE" ;; Get rid of any text properties. (and (stringp date) (or (text-properties-at 0 date) @@ -183,6 +184,10 @@ Understands the following styles: ;; 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) + ;; 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) ;; Styles: (8) without timezone. (setq year 1 month 2 day 3 time 4 zone nil)) |