# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1244597575 0
# Node ID 261b17f9df8e6632b1bc47ff5228886e0af58f69
# Parent  41ae80668dddbbe39ad3d759cba63f8a87956696
(calendar-time-zone-daylight-rules): Fix typo in 2008-04-02 change.

diff -r 41ae80668ddd -r 261b17f9df8e lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jun 10 01:27:10 2009 +0000
+++ b/lisp/ChangeLog	Wed Jun 10 01:32:55 2009 +0000
@@ -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 -r 41ae80668ddd -r 261b17f9df8e lisp/calendar/cal-dst.el
--- a/lisp/calendar/cal-dst.el	Wed Jun 10 01:27:10 2009 +0000
+++ b/lisp/calendar/cal-dst.el	Wed Jun 10 01:32:55 2009 +0000
@@ -229,7 +229,7 @@
         (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))