(calendar-time-zone-daylight-rules): Reset

new-rules after each round.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c3824345190f9084c90d30d4236bf8ad059b0fe0..0b1c0f03a80f78dc810dc5ad19a6fe703d6ad425 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-04-04  Andreas Schwab  <schwab@suse.de>
 
+       * calendar/cal-dst.el (calendar-time-zone-daylight-rules): Reset
+       new-rules after each round.
+
        * Makefile.in (cal-autoloads): New target.
        (compile, compile-always, recompile): Depend on it.
        ($(lisp)/calendar/cal-loaddefs.el)

diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el
index 57aa87c3a80351cfde5e87c355abc44f9253ea2d..cceb39e342dcc73f62f733879415467cd04a7e59 100644 (file)
--- a/lisp/calendar/cal-dst.el
+++ b/lisp/calendar/cal-dst.el
@@ -240,7 +240,8 @@ The result has the proper form for `calendar-daylight-savings-starts'."
       ;; it's wrong in general, but it's right for at least one year.
       (setq candidate-rules (if new-rules (nreverse new-rules)
                               (list (car candidate-rules)))
-            year (1+ year)))
+           new-rules nil
+           year (1+ year)))
     (car candidate-rules)))
 
 ;; TODO it might be better to extract this information directly from