(generate-calendar-month): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 77460c0fe7f190476918b04e36a7b39640f79464..9af455ffa2640b21cad23423e28660a12bf5b69b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-24  Richard M. Stallman  <rms@gnu.org>
+
+       * calendar/calendar.el (generate-calendar-month): Doc fix.
+
 2002-01-23  Richard M. Stallman  <rms@gnu.org>
 
         * play/tetris.el: (tetris): New defgroup.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 7a4879f9f08739d4112e114aab1de92c13c29164..af8b1aeed2b63075aee89880738f319c9d0e1a19 100644 (file)
--- 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))