From: Richard M. Stallman Date: Thu, 24 Jan 2002 06:06:11 +0000 (+0000) Subject: (generate-calendar-month): Doc fix. X-Git-Tag: ttn-vms-21-2-B4~17002 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59488c6b601e95325ab01b9932fbb268ba68cc5d;p=emacs.git (generate-calendar-month): Doc fix. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 77460c0fe7f..9af455ffa26 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2002-01-24 Richard M. Stallman + + * calendar/calendar.el (generate-calendar-month): Doc fix. + 2002-01-23 Richard M. Stallman * play/tetris.el: (tetris): New defgroup. diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 7a4879f9f08..af8b1aeed2b 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -1828,10 +1828,9 @@ Or, for optional MON, YR." (defun generate-calendar-month (month year indent) "Produce a calendar for MONTH, YEAR on the Gregorian calendar. -The calendar is inserted in the buffer starting at the line on 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." +The calendar is inserted at the beginning of the buffer, +and is indented INDENT spaces. The indentation is done +by skipping the first INDENT characters on the line, if there are that many." (let* ((blank-days;; at start of month (mod (- (calendar-day-of-week (list month 1 year))