summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorWerner LEMBERG <wl@gnu.org>2005-03-25 09:53:47 +0000
committerWerner LEMBERG <wl@gnu.org>2005-03-25 09:53:47 +0000
commit9f556e4466482289f0e8210324069a06c6a8c7d8 (patch)
tree69bc49fc9c656387c4bd9758f858209cf3b104ee
parent88a34f435457c283f017af2f66d117b6f3cc4106 (diff)
downloademacs-9f556e4466482289f0e8210324069a06c6a8c7d8.tar.gz
* calendar/calendar.el: Replace `legal' with `valid'.
-rw-r--r--lisp/ChangeLog1
-rw-r--r--lisp/calendar/calendar.el6
2 files changed, 4 insertions, 3 deletions
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 <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 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))))