From 6df87f14218fc2c35a660c3d78d54462738fea5a Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Fri, 13 Oct 1995 13:06:37 +0000 Subject: [PATCH] Minor fixes. --- lisp/calendar/cal-tex.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el index 6ee9102bb54..c0ec98bbec4 100644 --- a/lisp/calendar/cal-tex.el +++ b/lisp/calendar/cal-tex.el @@ -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 @@ Optional prefix argument specifies number of weeks." (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 @@ Optional prefix argument specifies number of weeks." ) (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) -- 2.39.2