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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cfab7c2065ea3f106aef1cde0d25c54fe5d95eea..a4d04659aad3340d07b28ffded92946aea0e0b90 100644 (file)
--- 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 1478a6ca29d7de0edea63c9d296bc202d91772fa..0bcb61b4d42968f256c321be39be67d5dc90290f 100644 (file)
--- 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))