diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-05-27 03:47:27 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-05-27 03:47:27 +0000 |
| commit | 3b738106ab1db1f834810870a4368bf9a788a31b (patch) | |
| tree | b45bd57d380f8398a967d31b5abb471c1642e1dc /lisp/calendar/parse-time.el | |
| parent | 5c5f007f0c39a84318cd43ea54b8505e1a8dc32f (diff) | |
| download | emacs-3b738106ab1db1f834810870a4368bf9a788a31b.tar.gz | |
(parse-time-months, parse-time-weekdays): Add long-form month and day names.
Diffstat (limited to 'lisp/calendar/parse-time.el')
| -rw-r--r-- | lisp/calendar/parse-time.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lisp/calendar/parse-time.el b/lisp/calendar/parse-time.el index e6bac898d93..59530dc177b 100644 --- a/lisp/calendar/parse-time.el +++ b/lisp/calendar/parse-time.el @@ -116,9 +116,18 @@ (defvar parse-time-months '(("jan" . 1) ("feb" . 2) ("mar" . 3) ("apr" . 4) ("may" . 5) ("jun" . 6) ("jul" . 7) ("aug" . 8) ("sep" . 9) - ("oct" . 10) ("nov" . 11) ("dec" . 12))) + ("oct" . 10) ("nov" . 11) ("dec" . 12) + ("january" . 1) ("february" . 2) + ("march" . 3) ("april" . 4) ("june" . 6) + ("july" . 7) ("august" . 8) + ("september" . 9) ("october" . 10) + ("november" . 11) ("december" . 12))) (defvar parse-time-weekdays '(("sun" . 0) ("mon" . 1) ("tue" . 2) - ("wed" . 3) ("thu" . 4) ("fri" . 5) ("sat" . 6))) + ("wed" . 3) ("thu" . 4) ("fri" . 5) + ("sat" . 6) ("sunday" . 0) ("monday" . 1) + ("tuesday" . 2) ("wednesday" . 3) + ("thursday" . 4) ("friday" . 5) + ("saturday" . 6))) (defvar parse-time-zoneinfo `(("z" 0) ("ut" 0) ("gmt" 0) ("pst" ,(* -8 3600)) ("pdt" ,(* -7 3600) t) ("mst" ,(* -7 3600)) ("mdt" ,(* -6 3600) t) |