diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-01-20 23:23:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-01-20 23:23:17 +0000 |
| commit | f8f5c5f4448c66a48ac092879aa2ad4c9d0d5338 (patch) | |
| tree | c1de686b3fa503f83f7210397cc75c308c3fd95b /lisp/timezone.el | |
| parent | 77851e9c307e4e8b659991914ddc0778b0268e0e (diff) | |
| download | emacs-f8f5c5f4448c66a48ac092879aa2ad4c9d0d5338.tar.gz | |
(timezone-parse-date): Handle 1-digit year.
Diffstat (limited to 'lisp/timezone.el')
| -rw-r--r-- | lisp/timezone.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/timezone.el b/lisp/timezone.el index b4619488960..c26adf78702 100644 --- a/lisp/timezone.el +++ b/lisp/timezone.el @@ -190,8 +190,10 @@ Understands the following styles: (setq year (substring date (match-beginning year) (match-end year))) ;; It is now Dec 1992. 8 years before the end of the World. - (if (< (length year) 4) - (setq year (concat "19" (substring year -2 nil)))) + (if (= (length year) 1) + (setq year (concat "190" (substring year -1 nil))) + (if (< (length year) 4) + (setq year (concat "19" (substring year -2 nil))))) (setq month (if (= (aref date (+ (match-beginning month) 2)) ?-) ;; Handle numeric months, spanning exactly two digits. |