[Emacs-diffs] Changes to emacs/lisp/calendar/cal-tex.el,v

[Glenn Morris]

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