From 4c635ea3532cf2145b847610dd3c6c252be77d0f Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 23 Feb 2004 00:11:12 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 12 ++++++++++++ lisp/calendar/calendar.el | 21 ++++++++++++--------- 2 files changed, 24 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 902b3072148..51f9e579d49 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +2004-02-23 Glenn Morris + + * calendar/calendar.el (generate-calendar) + (calendar-read-date): Prevent display of BC calendars once more - + reverts 2003-10-01 change. + (generate-calendar-month): Doc fix. + +2004-02-03 Matthew Mundell (tiny change) + + * calendar/diary-lib.el (fancy-diary-display): Don't rely on + return value of increment-calendar-month. + 2004-02-21 Stephen Compall * saveplace.el (save-place-forget-unreadable-files) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index a0644f54aa2..c1277ca5132 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1924,12 +1924,15 @@ Or, for optional MON, YR." (run-hooks 'today-invisible-calendar-hook))))) (defun generate-calendar (month year) - "Generate a three-month Gregorian calendar centered around MONTH, YEAR. -A negative YEAR is interpreted as BC; -1 being 1 BC, and so on. -Note that while calendars can be displayed for years BC, some functions (eg -motion, complex holiday functions) will not work correctly for such dates." - (setq displayed-month month) - (setq displayed-year year) + "Generate a three-month Gregorian calendar centered around MONTH, YEAR." +;;; A negative YEAR is interpreted as BC; -1 being 1 BC, and so on. +;;; Note that while calendars for years BC could be displayed as it +;;; stands, almost all other calendar functions (eg holidays) would +;;; at best have unpredictable results for such dates. + (if (< (+ month (* 12 (1- year))) 2) + (error "Months before February, 1 AD are not available")) + (setq displayed-month month + displayed-year year) (erase-buffer) (increment-calendar-month month year -1) (calendar-for-loop i from 0 to 2 do @@ -1941,7 +1944,7 @@ motion, complex holiday functions) will not work correctly for such dates." The calendar is inserted at the top of the buffer in which point is currently located, but indented INDENT spaces. The indentation is done from the first character on the line and does not disturb the first INDENT characters on the -line. A negative YEAR is interpreted as BC; -1 being 1 BC, and so on." +line." (let* ((blank-days;; at start of month (mod (- (calendar-day-of-week (list month 1 year)) @@ -2538,8 +2541,8 @@ If optional NODAY is t, does not ask for day, but just returns \(month nil year); if NODAY is any other non-nil value the value returned is \(month year)" (let* ((year (calendar-read - "Year: " - (lambda (x) (not (zerop x))) + "Year (>0): " + (lambda (x) (> x 0)) (int-to-string (extract-calendar-year (calendar-current-date))))) (month-array calendar-month-name-array) -- 2.11.4.GIT