Mercurial > emacs
changeset 13206:2d1da471963a
Minor fixes.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Fri, 13 Oct 1995 13:06:37 +0000 |
| parents | 8eac10febc8e |
| children | 2b541cc4cd97 |
| files | lisp/calendar/cal-tex.el |
| diffstat | 1 files changed, 5 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)