[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100253: Small ps-print fixes.

[Glenn Morris]

------------------------------------------------------------
revno: 100253
committer: Glenn Morris <address@hidden>
branch nick: emacs-23
timestamp: Wed 2010-12-01 20:06:52 -0800
message:
  Small ps-print fixes.
  * lisp/ps-print.el (ps-line-lengths-internal, ps-nb-pages):
  Ensure ps-footer-font-size-internal is initialized.
  Call ps-get-page-dimensions before trying to use ps-font-for-text.
modified:
  lisp/ChangeLog
  lisp/ps-print.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-12-02 00:44:25 +0000
+++ b/lisp/ChangeLog    2010-12-02 04:06:52 +0000
@@ -1,3 +1,9 @@
+2010-12-02  Glenn Morris  <address@hidden>
+
+       * ps-print.el (ps-line-lengths-internal, ps-nb-pages):
+       Ensure ps-footer-font-size-internal is initialized.
+       Call ps-get-page-dimensions before trying to use ps-font-for-text.
+
 2010-12-01  Kenichi Handa  <address@hidden>
 
        * mail/rmailmm.el (rmail-mime-parse): Call rmail-mime-process
@@ -35,7 +41,6 @@
        (smie-next-sexp): Make it accept a "start token" as argument.
        (smie-indent-keyword): Be careful not to misidentify tokens that span
        more than one line, as empty lines.  Add argument `token'.
->>>>>>> MERGE-SOURCE
 
 2010-11-26  Kenichi Handa  <address@hidden>
 

=== modified file 'lisp/ps-print.el'
--- a/lisp/ps-print.el  2010-10-18 18:38:11 +0000
+++ b/lisp/ps-print.el  2010-12-02 04:06:52 +0000
@@ -4331,14 +4331,17 @@
         (ps-header-font-size-internal
          (or ps-header-font-size-internal
              (ps-get-font-size 'ps-header-font-size)))
+        (ps-footer-font-size-internal
+         (or ps-footer-font-size-internal
+             (ps-get-font-size 'ps-footer-font-size)))
         (ps-header-title-font-size-internal
          (or ps-header-title-font-size-internal
              (ps-get-font-size 'ps-header-title-font-size)))
         (buf (get-buffer-create "*Line-lengths*"))
         (ifs ps-font-size-internal)    ; initial font size
-        (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
         (print-width (progn (ps-get-page-dimensions)
                             ps-print-width))
+        (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
         (ps-setup (ps-setup))          ; setup for the current buffer
         (fs-min 5)                     ; minimum font size
         cw-min                         ; minimum character width
@@ -4378,6 +4381,9 @@
         (ps-header-font-size-internal
          (or ps-header-font-size-internal
              (ps-get-font-size 'ps-header-font-size)))
+        (ps-footer-font-size-internal
+         (or ps-footer-font-size-internal
+             (ps-get-font-size 'ps-footer-font-size)))
         (ps-header-title-font-size-internal
          (or ps-header-title-font-size-internal
              (ps-get-font-size 'ps-header-title-font-size)))
@@ -4387,9 +4393,9 @@
         (buf (get-buffer-create "*Nb-Pages*"))
         (ils ps-line-spacing-internal) ; initial line spacing
         (ifs ps-font-size-internal)    ; initial font size
-        (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
         (page-height (progn (ps-get-page-dimensions)
                             ps-print-height))
+        (ilh (ps-line-height 'ps-font-for-text)) ; initial line height
         (ps-setup (ps-setup))          ; setup for the current buffer
         (fs-min 4)                     ; minimum font size
         lh-min                         ; minimum line height
@@ -6726,5 +6732,4 @@
 
 (provide 'ps-print)
 
-;; arch-tag: fb06a585-1112-4206-885d-a57d95d50579
 ;;; ps-print.el ends here