[Emacs-diffs] Changes to emacs/lisp/ps-print.el

[Vinicius Jose Latorre]

Index: emacs/lisp/ps-print.el
diff -c emacs/lisp/ps-print.el:1.158 emacs/lisp/ps-print.el:1.159
*** emacs/lisp/ps-print.el:1.158        Wed Jun 22 12:06:50 2005
--- emacs/lisp/ps-print.el      Tue Jun 28 03:13:02 2005
***************
*** 10,21 ****
  ;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
  ;;    Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, print, PostScript
! ;; Time-stamp: <2005/03/19 00:40:12 vinicius>
! ;; Version: 6.6.6
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
  (defconst ps-print-version "6.6.6"
!   "ps-print.el, v 6.6.6 <2005/03/19 vinicius>
  
  Vinicius's last change version -- this file may have been edited as part of
  Emacs without changes to the version number.  When reporting bugs, please also
--- 10,21 ----
  ;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
  ;;    Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, print, PostScript
! ;; Time-stamp: <2005/06/27 00:57:22 vinicius>
! ;; Version: 6.6.7
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
  (defconst ps-print-version "6.6.6"
!   "ps-print.el, v 6.6.7 <2005/06/27 vinicius>
  
  Vinicius's last change version -- this file may have been edited as part of
  Emacs without changes to the version number.  When reporting bugs, please also
***************
*** 5961,5970 ****
    (ps-begin-page))
  
  
  (defun ps-header-sheet ()
    ;; Print only when a new sheet begins.
!   (and ps-print-page-p (> ps-page-sheet 0)
!        (ps-output "EndSheet\n"))
    (setq ps-page-sheet (1+ ps-page-sheet))
    (when (ps-print-sheet-p)
      (setq ps-page-order (1+ ps-page-order))
--- 5961,5974 ----
    (ps-begin-page))
  
  
+ (defun ps-end-sheet ()
+   (and ps-print-page-p (> ps-page-sheet 0)
+        (ps-output "EndSheet\n")))
+ 
+ 
  (defun ps-header-sheet ()
    ;; Print only when a new sheet begins.
!   (ps-end-sheet)
    (setq ps-page-sheet (1+ ps-page-sheet))
    (when (ps-print-sheet-p)
      (setq ps-page-order (1+ ps-page-order))
***************
*** 6689,6696 ****
  
  
  (defun ps-end-job (needs-begin-file)
!   (let ((previous-print ps-print-page-p)
!       (ps-print-page-p t))
      (ps-flush-output)
      (save-excursion
        (let ((pages-per-sheet (mod ps-page-printed ps-n-up-printing))
--- 6693,6699 ----
  
  
  (defun ps-end-job (needs-begin-file)
!   (let ((ps-print-page-p t))
      (ps-flush-output)
      (save-excursion
        (let ((pages-per-sheet (mod ps-page-printed ps-n-up-printing))
***************
*** 6717,6724 ****
                      (number-to-string ps-lines-printed) " BeginPage\n")
           (ps-end-page)))
      ;; Set end of PostScript file
!     (and previous-print
!        (ps-output "EndSheet\n"))
      (ps-output "\n%%Trailer\n%%Pages: "
               (number-to-string
                (if (and needs-begin-file
--- 6720,6726 ----
                      (number-to-string ps-lines-printed) " BeginPage\n")
           (ps-end-page)))
      ;; Set end of PostScript file
!     (ps-end-sheet)
      (ps-output "\n%%Trailer\n%%Pages: "
               (number-to-string
                (if (and needs-begin-file