[Emacs-diffs] /srv/bzr/emacs/trunk r109756: * lisp/calendar/cal-tex.el (cal-tex-weekly-common): Restore leading blank page.

[Glenn Morris]

------------------------------------------------------------
revno: 109756
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-22 13:55:19 -0400
message:
  * lisp/calendar/cal-tex.el (cal-tex-weekly-common): Restore leading blank 
page.
modified:
  lisp/ChangeLog
  lisp/calendar/cal-tex.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-22 17:32:51 +0000
+++ b/lisp/ChangeLog    2012-08-22 17:55:19 +0000
@@ -1,3 +1,8 @@
+2012-08-22  Glenn Morris  <address@hidden>
+
+       * calendar/cal-tex.el (cal-tex-weekly-common):
+       Restore leading blank page.
+
 2012-08-22  Le Wang  <address@hidden>  (tiny change)
 
        * misc.el (forward-to-word, backward-to-word): Activate or extend

=== modified file 'lisp/calendar/cal-tex.el'
--- a/lisp/calendar/cal-tex.el  2012-08-22 00:39:44 +0000
+++ b/lisp/calendar/cal-tex.el  2012-08-22 17:55:19 +0000
@@ -1080,8 +1080,8 @@
           (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 @@
 \\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