diff options
author | Karl Heuer <[email protected]> | 1998-12-16 21:12:17 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1998-12-16 21:12:17 +0000 |
commit | a2faecac7767ea9a02fed7b1907f4cceff7c341c (patch) | |
tree | bf1bec90534b31c74427097dda15b477f1d99cb3 /lisp/calendar/diary-lib.el | |
parent | acc81368d1094c022ca7b09fe44cfd4f6e57b2ec (diff) |
(diary-float): Fix end-of-year error and typos in comments.
Diffstat (limited to 'lisp/calendar/diary-lib.el')
-rw-r--r-- | lisp/calendar/diary-lib.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 2f0dfd7cfc..88df6ab6fc 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)) |