Mercurial > emacs
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)