changeset 93658:792fb2cc28be

(calendar-time-zone-daylight-rules): Reset new-rules after each round.
author Andreas Schwab <schwab@suse.de>
date Fri, 04 Apr 2008 11:43:39 +0000
parents c6cad0a1a68b
children f606935ea4be
files lisp/ChangeLog lisp/calendar/cal-dst.el
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Apr 04 11:10:26 2008 +0000
+++ b/lisp/ChangeLog	Fri Apr 04 11:43:39 2008 +0000
@@ -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)
--- a/lisp/calendar/cal-dst.el	Fri Apr 04 11:10:26 2008 +0000
+++ b/lisp/calendar/cal-dst.el	Fri Apr 04 11:43:39 2008 +0000
@@ -240,7 +240,8 @@
       ;; 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