[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v |
Date: |
Wed, 02 Apr 2008 03:16:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/04/02 03:16:47
Index: cal-tex.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-tex.el,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -b -r1.40 -r1.41
--- cal-tex.el 1 Apr 2008 02:43:57 -0000 1.40
+++ cal-tex.el 2 Apr 2008 03:16:47 -0000 1.41
@@ -608,8 +608,9 @@
(mod
(- (calendar-day-of-week (list month last-day year))
calendar-week-start-day)
- 7)))
- (calendar-for-loop i from (1+ blank-days) to 6 do
+ 7))
+ (i blank-days))
+ (while (<= (setq i (1+ i)) 6)
(if (memq i cal-tex-which-days)
(insert (format day-format "" "") "{}{}{}{}%\n"))))))
@@ -631,14 +632,15 @@
"Determine if any days of the last week will be printed.
Return t if there will there be any days of the last week printed
in the calendar starting in MONTH YEAR."
- (let ((last-day (calendar-last-day-of-month month year))
+ (let* ((last-day (calendar-last-day-of-month month year))
+ (i (- last-day 7))
any-days the-sunday) ; the day of week of last Sunday
- (calendar-for-loop i from (- last-day 6) to last-day do
+ (while (<= (setq i (1+ i)) last-day)
(if (zerop (calendar-day-of-week (list month i year)))
(setq the-sunday i)))
- (calendar-for-loop i from the-sunday to last-day do
- (if (memq (calendar-day-of-week (list month i year))
- cal-tex-which-days)
+ (setq i (1- the-sunday))
+ (while (<= (setq i (1+ i)) last-day)
+ (if (memq (calendar-day-of-week (list month i year)) cal-tex-which-days)
(setq any-days t)))
any-days))
@@ -1396,6 +1398,7 @@
hourly sections for the period specified by `cal-tex-daily-start'
and `cal-tex-daily-end'."
(let ((month-name (cal-tex-month-name (extract-calendar-month date)))
+ (i (1- cal-tex-daily-start))
hour)
(cal-tex-banner "cal-tex-daily-page")
(cal-tex-b-makebox "4cm" "l")
@@ -1417,7 +1420,7 @@
(cal-tex-hspace ".4cm")
(cal-tex-rule "0mm" "16.1cm" "1mm")
(cal-tex-nl ".1cm")
- (calendar-for-loop i from cal-tex-daily-start to cal-tex-daily-end do
+ (while (<= (setq i (1+ i)) cal-tex-daily-end)
(cal-tex-cmd "\\noindent")
(setq hour (if cal-tex-24
i
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v,
Glenn Morris <=