# HG changeset patch
# User Edward M. Reingold <reingold@emr.cs.iit.edu>
# Date 813589597 0
# Node ID 2d1da471963a5aeb6877f5fb09932d347337a7ef
# Parent  8eac10febc8eb1bd3b8f56e51c2c8f3d5c172d5d
Minor fixes.

diff -r 8eac10febc8e -r 2d1da471963a lisp/calendar/cal-tex.el
--- a/lisp/calendar/cal-tex.el	Thu Oct 12 22:58:04 1995 +0000
+++ b/lisp/calendar/cal-tex.el	Fri Oct 13 13:06:37 1995 +0000
@@ -25,8 +25,8 @@
 
 ;;; Commentary:
 
-;; This collection of functions implements the features of calendar.el that
-;; deal with printing the calendar.
+;; This collection of functions implements the creation of LaTeX calendars
+;; based on the user's holiday choices and diary file.
 
 ;;; TO DO
 ;;;
@@ -888,13 +888,13 @@
        (if (/= i n)
            (progn
              (run-hooks 'cal-tex-week-hook)
-	     (setq date date7)
+	     (setq date (cal-tex-incr-date date 7))
              (cal-tex-newpage))))
     (cal-tex-end-document)
     (run-hooks 'cal-tex-hook)))
 
 (defun cal-tex-weekly4-box (date weekend)
-  "make one box for DATE, different if WEEKEND"
+  "Make one box for DATE, different if WEEKEND."
   (let* (
 	(day (extract-calendar-day date))
 	(month (extract-calendar-month date))
@@ -908,8 +908,7 @@
 	)
     (cal-tex-b-framebox "8cm" "l")
     (cal-tex-b-parbox "b" "7.5cm")
-    (insert (format "{\\Large\\bf %s,} %s/%s/%s\\\\\n" 
-		    dayname month day year))
+    (insert (format "{\\Large\\bf %s,} %s/%s/%s\\\\\n" dayname month day year))
     (cal-tex-rule "0pt" "7.5cm" ".5mm")
     (cal-tex-nl)
     (if (not weekend)