# HG changeset patch
# User Werner LEMBERG <wl@gnu.org>
# Date 1111744427 0
# Node ID 4e6ed80c0af2e8b6b3d7f9a1b7f08fac17024cbd
# Parent  78e08044a7344c657113da6d01b49195ab00f665
* calendar/calendar.el: Replace `legal' with `valid'.

diff -r 78e08044a734 -r 4e6ed80c0af2 lisp/ChangeLog
--- 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>
 
diff -r 78e08044a734 -r 4e6ed80c0af2 lisp/calendar/calendar.el
--- 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))))