* calendar/calendar.el: Replace `legal' with `valid'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e58db29adcb3fff281b71f505fed1e4e16edb6a2..c5790b2310efe9d27b9801ec89a69576c7a635b7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index baa18d769c2cba72a25447b1696aecde25066e76..89d32c4952b272b123f71b0fe3fd602c34fadfb1 100644 (file)
--- 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))))