diff options
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1995-10-13 13:06:37 +0000 |
|---|---|---|
| committer | Edward M. Reingold <reingold@emr.cs.iit.edu> | 1995-10-13 13:06:37 +0000 |
| commit | 3d77cbc707ef3014d1ae002aeb692ce3ae2c7221 (patch) | |
| tree | 249f5437deaebd4638809a22617d789f7a357faf | |
| parent | 18539885bf92203d3423768abe4e4949afa295b2 (diff) | |
| download | emacs-3d77cbc707ef3014d1ae002aeb692ce3ae2c7221.tar.gz | |
Minor fixes.
| -rw-r--r-- | lisp/calendar/cal-tex.el | 11 |
1 files 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) |