From 5a1d5766b20cbf5bdae71bd8de16fa51a6fdf603 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 27 Aug 1998 15:08:37 +0000 Subject: [PATCH] (cal-tex-cursor-filofax-daily): Don't use oddp. --- lisp/calendar/cal-tex.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el index 2976f66eb21..c69b6b85450 100644 --- a/lisp/calendar/cal-tex.el +++ b/lisp/calendar/cal-tex.el @@ -1256,10 +1256,11 @@ Holidays are included if `cal-tex-holidays' is t." (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)) -- 2.39.2