changeset 28266:3c235aa015c4

N-up last page fix. (ps-print-version): New version number (5.1.1). (ps-end-file, ps-end-job, ps-generate): Code fix.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 22 Mar 2000 12:14:56 +0000
parents 0bb132ece3a9
children 0a30b471e996
files lisp/ps-print.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-print.el	Wed Mar 22 12:13:46 2000 +0000
+++ b/lisp/ps-print.el	Wed Mar 22 12:14:56 2000 +0000
@@ -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
-
-(defconst ps-print-version "5.1"
-  "ps-print.el, v 5.1 <2000/03/10 vinicius>
+;; Time-stamp:	<2000/03/21 00:02:42 vinicius>
+;; Version:	5.1.1
+
+(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 @@
   `(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 @@
 		(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 @@
 
 
 (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)