diff options
| author | Karl Heuer | 1998-08-27 15:08:37 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-08-27 15:08:37 +0000 |
| commit | 5a1d5766b20cbf5bdae71bd8de16fa51a6fdf603 (patch) | |
| tree | 017ad57ff8765219f18c715f2e0060f8103a8089 | |
| parent | 3f235494af33d1371b682ccf9d94a7a922e45d41 (diff) | |
| download | emacs-5a1d5766b20cbf5bdae71bd8de16fa51a6fdf603.tar.gz emacs-5a1d5766b20cbf5bdae71bd8de16fa51a6fdf603.zip | |
(cal-tex-cursor-filofax-daily): Don't use oddp.
| -rw-r--r-- | lisp/calendar/cal-tex.el | 9 |
1 files 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." | |||
| 1256 | (cal-tex-cmd "\\pagestyle{empty}") | 1256 | (cal-tex-cmd "\\pagestyle{empty}") |
| 1257 | (calendar-for-loop i from 1 to n do | 1257 | (calendar-for-loop i from 1 to n do |
| 1258 | (calendar-for-loop j from 1 to 5 do | 1258 | (calendar-for-loop j from 1 to 5 do |
| 1259 | (insert (if (oddp j) "\\righthead" "\\lefthead")) | 1259 | (let ((odd (/= 0 (% j 2)))) |
| 1260 | (cal-tex-arg (calendar-date-string date)) | 1260 | (insert (if odd "\\righthead" "\\lefthead")) |
| 1261 | (insert "%\n") | 1261 | (cal-tex-arg (calendar-date-string date)) |
| 1262 | (insert (if (oddp j) "\\rightday" "\\leftday")) | 1262 | (insert "%\n") |
| 1263 | (insert (if odd "\\rightday" "\\leftday"))) | ||
| 1263 | (cal-tex-arg (cal-tex-latexify-list diary-list date)) | 1264 | (cal-tex-arg (cal-tex-latexify-list diary-list date)) |
| 1264 | (cal-tex-arg (cal-tex-latexify-list holidays date)) | 1265 | (cal-tex-arg (cal-tex-latexify-list holidays date)) |
| 1265 | (cal-tex-arg (eval cal-tex-daily-string)) | 1266 | (cal-tex-arg (eval cal-tex-daily-string)) |