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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfab7c2065e..a4d04659aad 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 1478a6ca29d..0bcb61b4d42 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))