From 141562ffa6320154c7455b99028f74d40af9ee80 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 22 Aug 2012 13:55:19 -0400 Subject: [PATCH] * lisp/calendar/cal-tex.el (cal-tex-weekly-common): Restore leading blank page. --- lisp/ChangeLog | 5 +++++ lisp/calendar/cal-tex.el | 20 +++++++++++++------- 2 files changed, 18 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 39d1e94dbf5..c45fc114e5c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-08-22 Glenn Morris + + * calendar/cal-tex.el (cal-tex-weekly-common): + Restore leading blank page. + 2012-08-22 Le Wang (tiny change) * misc.el (forward-to-word, backward-to-word): Activate or extend diff --git a/lisp/calendar/cal-tex.el b/lisp/calendar/cal-tex.el index d8d2a09c871..9c01ab40c0c 100644 --- a/lisp/calendar/cal-tex.el +++ b/lisp/calendar/cal-tex.el @@ -1080,8 +1080,8 @@ shown are hard-coded to 8-12, 13-17." (cal-tex-longday "weekend" "0.8in") (insert cal-tex-lefthead) (cal-tex-longday "leftday" "1.85in")) - (cal-tex-preamble "twoside,12pt") - (insert "\\textwidth 7in + (cal-tex-preamble "twoside,12pt") + (insert "\\textwidth 7in \\textheight 10.5in \\oddsidemargin 0in \\evensidemargin 0in @@ -1090,13 +1090,19 @@ shown are hard-coded to 8-12, 13-17." \\headsep 0.125in \\footskip .125in ") - (insert cal-tex-righthead) - (cal-tex-longday "rightday" "2.75in") - (cal-tex-longday "weekend" "1.8in") - (insert cal-tex-lefthead) - (cal-tex-longday "leftday" "2.75in")) + (insert cal-tex-righthead) + (cal-tex-longday "rightday" "2.75in") + (cal-tex-longday "weekend" "1.8in") + (insert cal-tex-lefthead) + (cal-tex-longday "leftday" "2.75in")) (cal-tex-b-document) (cal-tex-cmd "\\pagestyle" "empty") + ;; Let's assume this is something to with twopage documents. + ;; It has the downside that we start with a blank page. + ;; It doesn't make obvious sense when oddside and evenside margins + ;; are the same (non-filofax), but consider the left and right + ;; versions of various functions as applicable to even and odd pages. + (cal-tex-newpage) (dotimes (i n) (insert "\\lefthead") (cal-tex-arg -- 2.39.2