mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(cal-tex-cursor-filofax-daily): Don't use oddp.

Browse Source
This commit is contained in:
Karl Heuer 1998-08-27 15:08:37 +00:00
parent 3f235494af
commit 5a1d5766b2
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/calendar/cal-tex.el
View File

@ -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))