From b27c3bc6ec03f081147746a65e05fb5393a91dc9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 10 Jun 2009 01:32:55 +0000 Subject: [PATCH] (calendar-time-zone-daylight-rules): Fix typo in 2008-04-02 change. --- lisp/ChangeLog | 5 +++++ lisp/calendar/cal-dst.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * calendar/cal-dst.el (calendar-time-zone-daylight-rules): + Fix typo in 2008-04-02 change. + 2009-06-10 Kenichi Handa * 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)) -- 2.39.2