[Emacs-diffs] Changes to emacs/lisp/calendar/calendar.el

[Werner LEMBERG]

Index: emacs/lisp/calendar/calendar.el
diff -c emacs/lisp/calendar/calendar.el:1.165 
emacs/lisp/calendar/calendar.el:1.166
*** emacs/lisp/calendar/calendar.el:1.165       Wed Mar 16 13:23:09 2005
--- emacs/lisp/calendar/calendar.el     Fri Mar 25 09:53:47 2005
***************
*** 2884,2903 ****
    (redraw-calendar))
  
  (defun calendar-date-is-visible-p (date)
!   "Return t if DATE is legal 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."
    (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
           ;; complex holiday algorithms not suitable for years BC.
           ;; Note there are side effects on calendar navigation.
           (<= 1 year))))
--- 2884,2903 ----
    (redraw-calendar))
  
  (defun calendar-date-is-visible-p (date)
!   "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 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-valid, to suppress errors from
           ;; complex holiday algorithms not suitable for years BC.
           ;; Note there are side effects on calendar navigation.
           (<= 1 year))))