From: Werner LEMBERG Date: Fri, 25 Mar 2005 09:53:47 +0000 (+0000) Subject: * calendar/calendar.el: Replace `legal' with `valid'. X-Git-Tag: ttn-vms-21-2-B4~1540 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f556e4466482289f0e8210324069a06c6a8c7d8;p=emacs.git * calendar/calendar.el: Replace `legal' with `valid'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e58db29adcb..c5790b2310e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2005-03-25 Werner Lemberg * complete.el, thumbs.el: Replace `legal' with `valid'. + * calendar/calendar.el: Replace `legal' with `valid'. 2005-03-25 Werner Lemberg diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index baa18d769c2..89d32c4952b 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -2884,20 +2884,20 @@ interpreted as BC; -1 being 1 BC, and so on." (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))))