/[emacs]/emacs/lisp/calendar/calendar.el
ViewVC logotype

Diff of /emacs/lisp/calendar/calendar.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.135 by rms, Tue Jan 15 03:31:27 2002 UTC revision 1.136 by rms, Thu Jan 24 06:06:01 2002 UTC
# Line 1828  Or, for optional MON, YR." Line 1828  Or, for optional MON, YR."
1828    
1829  (defun generate-calendar-month (month year indent)  (defun generate-calendar-month (month year indent)
1830    "Produce a calendar for MONTH, YEAR on the Gregorian calendar.    "Produce a calendar for MONTH, YEAR on the Gregorian calendar.
1831  The calendar is inserted in the buffer starting at the line on which point  The calendar is inserted at the beginning of the buffer,
1832  is currently located, but indented INDENT spaces.  The indentation is done  and is indented INDENT spaces.  The indentation is done
1833  from the first character on the line and does not disturb the first INDENT  by skipping the first INDENT characters on the line, if there are that many."
 characters on the line."  
1834    (let* ((blank-days;; at start of month    (let* ((blank-days;; at start of month
1835            (mod            (mod
1836             (- (calendar-day-of-week (list month 1 year))             (- (calendar-day-of-week (list month 1 year))

Legend:
Removed from v.1.135  
changed lines
  Added in v.1.136

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26