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 <[EMAIL PROTECTED]> (multi-byte characters) ;; Vinicius Jose Latorre <[EMAIL PROTECTED]> ;; 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 <[EMAIL PROTECTED]> (multi-byte characters) ;; Vinicius Jose Latorre <[EMAIL PROTECTED]> ;; 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
_______________________________________________ Emacs-diffs mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-diffs
