# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 904230517 0
# Node ID da72a65a2bd6e2a5236813817e86140ae0fde721
# Parent  5eff8af4eebd13d46591ea799fc3941e10be3f73
(cal-tex-cursor-filofax-daily): Don't use oddp.

diff -r 5eff8af4eebd -r da72a65a2bd6 lisp/calendar/cal-tex.el
--- a/lisp/calendar/cal-tex.el	Thu Aug 27 09:26:08 1998 +0000
+++ b/lisp/calendar/cal-tex.el	Thu Aug 27 15:08:37 1998 +0000
@@ -1256,10 +1256,11 @@
     (cal-tex-cmd "\\pagestyle{empty}")
     (calendar-for-loop i from 1 to n do
        (calendar-for-loop j from 1 to 5 do 
-       (insert (if (oddp j) "\\righthead" "\\lefthead"))
-       (cal-tex-arg (calendar-date-string date))
-       (insert "%\n")
-          (insert (if (oddp j) "\\rightday"  "\\leftday"))
+	  (let ((odd (/= 0 (% j 2))))
+	    (insert (if odd "\\righthead" "\\lefthead"))
+	    (cal-tex-arg (calendar-date-string date))
+	    (insert "%\n")
+	    (insert (if odd "\\rightday"  "\\leftday")))
           (cal-tex-arg (cal-tex-latexify-list diary-list date))
           (cal-tex-arg (cal-tex-latexify-list holidays date))
           (cal-tex-arg (eval cal-tex-daily-string))