diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-11-16 22:21:39 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-11-16 22:21:39 +0000 |
commit | bf191dd1967b20d5e83d5743d6fd6d405dd35ffa (patch) | |
tree | c4b2f41676ced8f3e85076e3c0dab0ade4c859a6 /lisp/timezone.el | |
parent | 2c40f7f87b9f5cc07b6e5a2e7c3ded3e23505aba (diff) | |
download | emacs-bf191dd1967b20d5e83d5743d6fd6d405dd35ffa.tar.gz |
(timezone-parse-date): Handle two new formats (6 and 7).
Diffstat (limited to 'lisp/timezone.el')
-rw-r--r-- | lisp/timezone.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/timezone.el b/lisp/timezone.el index 26db8039313..56dbff02b5b 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -127,7 +127,9 @@ Understands the following styles: (2) Fri, 17 Mar 89 4:01[:33] [GMT] (3) Mon Jan 16 16:12[:37] [GMT] 1989 (4) 6 May 1992 1641-JST (Wednesday) - (5) 22-AUG-1993 10:59:12.82" + (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]" (let ((date (or date "")) (year nil) (month nil) @@ -135,6 +137,14 @@ Understands the following styles: (time nil) (zone nil)) ;This may be nil. (cond ((string-match + "\\([^ \t,]+\\),[ \t]+\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]+\\(T[ \t]+\\|\\)\\([0-9]+\\)[ \t]*\\'" date) + ;; Styles: (6) and (7) without timezone + (setq year 6 month 3 day 2 time 4 zone nil)) + ((string-match + "\\([^ \t,]+\\),[ \t]+\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]+\\(T[ \t]+\\|\\)\\([0-9]+\\)[ \t]*\\([-+a-zA-Z0-9]+\\)" date) + ;; Styles: (6) and (7) with timezone and buggy timezone + (setq year 6 month 3 day 2 time 4 zone 7)) + ((string-match "\\([0-9]+\\)[ \t]+\\([^ \t,]+\\)[ \t]+\\([0-9]+\\)[ \t]+\\([0-9]+:[0-9:]+\\)[ \t]*\\'" date) ;; Styles: (1) and (2) without timezone (setq year 3 month 2 day 1 time 4 zone nil)) |