# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915610167 0
# Node ID 6a6bb17fba9789d1e1b5c8cab97231558eb4438d
# Parent  bbe0c369b955a032477ae095da0997f423244206
(diary-float): Better fix of end-of-year error.

diff -r bbe0c369b955 -r 6a6bb17fba97 lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Tue Jan 05 14:20:30 1999 +0000
+++ b/lisp/calendar/diary-lib.el	Wed Jan 06 08:09:27 1999 +0000
@@ -1289,7 +1289,8 @@
 					 (calendar-last-day-of-month m1 y1)))))
 			(and (<= d1 d) (<= d d2))))
 		 ;; only possible base dates straddle two months
-		 (and (/= m1 m2)
+		 (and (or (< y1 y2)
+ 			  (and (= y1 y2) (< m1 m2)))
 		      (or
 		       ;; m1, d1 works as a base date
 		       (and