From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 22 Mar 2000 12:14:56 +0000 (+0000)
Subject: N-up last page fix.
X-Git-Tag: emacs-pretest-21.0.90~4539
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=133fc76450f7c0658151f38094912c46799f7248;p=emacs.git

N-up last page fix.
(ps-print-version): New version number (5.1.1).
(ps-end-file, ps-end-job, ps-generate): Code fix.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 203abade1ed..64bf6567699 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -9,11 +9,11 @@
 ;; Maintainer:	Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
 ;; Maintainer:	Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:	wp, print, PostScript
-;; Time-stamp:	<2000/03/10 15:49:24 vinicius>
-;; Version:	5.1
+;; Time-stamp:	<2000/03/21 00:02:42 vinicius>
+;; Version:	5.1.1
 
-(defconst ps-print-version "5.1"
-  "ps-print.el, v 5.1 <2000/03/10 vinicius>
+(defconst ps-print-version "5.1.1"
+  "ps-print.el, v 5.1.1 <2000/03/21 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,
@@ -3937,6 +3937,7 @@ XSTART YSTART are the relative position for the first page in a sheet.")
   `(1+ (/ (1- ps-page-count) ps-number-of-columns)))
 
 (defun ps-end-file ()
+  (ps-flush-output)
   ;; Back to the PS output buffer to set the last page n-up printing
   (save-excursion
     (let ((pages-per-sheet (mod ps-page-postscript ps-n-up-printing))
@@ -4619,7 +4620,6 @@ If FACE is not a valid face name, it is used default face."
 		(ps-end-page)
 
 		(ps-end-file)
-		(ps-flush-output)
 		(ps-end-job)
 
 		;; Setting this variable tells the unwind form that the
@@ -4639,6 +4639,7 @@ If FACE is not a valid face name, it is used default face."
 
 
 (defun ps-end-job ()
+  (ps-flush-output)
   (let ((total-lines (cdr ps-printing-region))
 	(total-pages (if ps-print-only-one-header
 			 (ps-page-number)