Mercurial > emacs
changeset 60922:4e6ed80c0af2
* calendar/calendar.el: Replace `legal' with `valid'.
| author | Werner LEMBERG <wl@gnu.org> |
|---|---|
| date | Fri, 25 Mar 2005 09:53:47 +0000 |
| parents | 78e08044a734 |
| children | 08f8c7042636 |
| files | lisp/ChangeLog lisp/calendar/calendar.el |
| diffstat | 2 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Mar 25 09:51:55 2005 +0000 +++ b/lisp/ChangeLog Fri Mar 25 09:53:47 2005 +0000 @@ -1,6 +1,7 @@ 2005-03-25 Werner Lemberg <wl@gnu.org> * complete.el, thumbs.el: Replace `legal' with `valid'. + * calendar/calendar.el: Replace `legal' with `valid'. 2005-03-25 Werner Lemberg <wl@gnu.org>
--- a/lisp/calendar/calendar.el Fri Mar 25 09:51:55 2005 +0000 +++ b/lisp/calendar/calendar.el Fri Mar 25 09:53:47 2005 +0000 @@ -2884,20 +2884,20 @@ (redraw-calendar)) (defun calendar-date-is-visible-p (date) - "Return t if DATE is legal and is visible in the calendar window." + "Return t if DATE is valid and is visible in the calendar window." (let ((gap (calendar-interval displayed-month displayed-year (extract-calendar-month date) (extract-calendar-year date)))) (and (calendar-date-is-legal-p date) (> 2 gap) (< -2 gap)))) (defun calendar-date-is-legal-p (date) - "Return t if DATE is a legal date." + "Return t if DATE is a valid date." (let ((month (extract-calendar-month date)) (day (extract-calendar-day date)) (year (extract-calendar-year date))) (and (<= 1 month) (<= month 12) (<= 1 day) (<= day (calendar-last-day-of-month month year)) - ;; BC dates left as non-legal, to suppress errors from + ;; BC dates left as non-valid, to suppress errors from ;; complex holiday algorithms not suitable for years BC. ;; Note there are side effects on calendar navigation. (<= 1 year))))