Mercurial > emacs

changeset 23120:da72a65a2bd6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cal-tex-cursor-filofax-daily): Don't use oddp.
author Karl Heuer <kwzh@gnu.org>
date Thu, 27 Aug 1998 15:08:37 +0000
parents 5eff8af4eebd
children 1e4f226ada30
files lisp/calendar/cal-tex.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))