diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-03-22 12:14:56 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-03-22 12:14:56 +0000 |
| commit | 133fc76450f7c0658151f38094912c46799f7248 (patch) | |
| tree | 8489b296f008fb055b8f18d92afc5bdbcc7eed94 /lisp/ps-print.el | |
| parent | 34fdc3dd1574299492a94f0887b679685d3ebc7e (diff) | |
| download | emacs-133fc76450f7c0658151f38094912c46799f7248.tar.gz | |
N-up last page fix.
(ps-print-version): New version number (5.1.1).
(ps-end-file, ps-end-job, ps-generate): Code fix.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 11 |
1 files changed, 6 insertions, 5 deletions
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) |