From: Glenn Morris <rgm@gnu.org>
Date: Wed, 10 Jun 2009 01:32:55 +0000 (+0000)
Subject: (calendar-time-zone-daylight-rules): Fix typo in 2008-04-02 change.
X-Git-Tag: emacs-pretest-23.0.95~94
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/b27c3bc6ec03f081147746a65e05fb5393a91dc9

(calendar-time-zone-daylight-rules): Fix typo in 2008-04-02 change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfab7c2065..a4d04659aa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-10  Glenn Morris  <rgm@gnu.org>
+
+	* calendar/cal-dst.el (calendar-time-zone-daylight-rules):
+	Fix typo in 2008-04-02 change.
+
 2009-06-10  Kenichi Handa  <handa@m17n.org>
 
 	* composite.el (compose-gstring-for-terminal): For zero-width
diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el
index 1478a6ca29..0bcb61b4d4 100644
--- a/lisp/calendar/cal-dst.el
+++ b/lisp/calendar/cal-dst.el
@@ -229,7 +229,7 @@ The result has the proper form for `calendar-daylight-savings-starts'."
         (setq date (cond ((eq (car rule) 'calendar-nth-named-day)
                           (eval (cons 'calendar-nth-named-absday (cdr rule))))
                          ((eq (car rule) 'calendar-gregorian-from-absolute)
-                          (eval (cdr rule)))
+                          (eval (cadr rule)))
                          (t (calendar-absolute-from-gregorian (eval rule)))))
         (or (equal (current-time-zone
                     (calendar-time-from-absolute date prevday-sec))