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

b27c3bc6 · Glenn Morris · 9903d1e6 · b27c3bc6 · b27c3bc6
Commit b27c3bc6 authored Jun 10, 2009 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/calendar/cal-dst.el lisp/calendar/cal-dst.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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

--- 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))