From a2faecac7767ea9a02fed7b1907f4cceff7c341c Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 16 Dec 1998 21:12:17 +0000 Subject: [PATCH] (diary-float): Fix end-of-year error and typos in comments. --- lisp/calendar/diary-lib.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 2f0dfd7cfc2..88df6ab6fc9 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -1280,7 +1280,7 @@ An optional parameter DAY means the Nth DAYNAME on or after/before MONTH DAY." (m2 (extract-calendar-month last)) (d2 (extract-calendar-day last)) (y2 (extract-calendar-year last))) - (if (or (and (= m1 m2) ; only possible base dates in one month + (if (or (and (= m1 m2) ; only possible base dates in one month (or (and (listp month) (memq m1 month)) (eq month t) (= m1 month)) @@ -1289,9 +1289,9 @@ An optional parameter DAY means the Nth DAYNAME on or after/before MONTH DAY." (calendar-last-day-of-month m1 y1))))) (and (<= d1 d) (<= d d2)))) ;; only possible base dates straddle two months - (and (< m1 m2) + (and (/= m1 m2) (or - ;; m1, d1 works is a base date + ;; m1, d1 works as a base date (and (or (and (listp month) (memq m1 month)) (eq month t) @@ -1299,7 +1299,7 @@ An optional parameter DAY means the Nth DAYNAME on or after/before MONTH DAY." (<= d1 (or day (if (> n 0) 1 (calendar-last-day-of-month m1 y1))))) - ;; m2, d2 works is a base date + ;; m2, d2 works as a base date (and (or (and (listp month) (memq m2 month)) (eq month t) (= m2 month)) -- 2.39.2