10 |
;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters) |
11 |
;; Vinicius Jose Latorre <viniciusjl@ig.com.br> |
;; Vinicius Jose Latorre <viniciusjl@ig.com.br> |
12 |
;; Keywords: wp, print, PostScript |
;; Keywords: wp, print, PostScript |
13 |
;; Time-stamp: <2005/03/19 00:40:12 vinicius> |
;; Time-stamp: <2005/06/27 00:57:22 vinicius> |
14 |
;; Version: 6.6.6 |
;; Version: 6.6.7 |
15 |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
16 |
|
|
17 |
(defconst ps-print-version "6.6.6" |
(defconst ps-print-version "6.6.6" |
18 |
"ps-print.el, v 6.6.6 <2005/03/19 vinicius> |
"ps-print.el, v 6.6.7 <2005/06/27 vinicius> |
19 |
|
|
20 |
Vinicius's last change version -- this file may have been edited as part of |
Vinicius's last change version -- this file may have been edited as part of |
21 |
Emacs without changes to the version number. When reporting bugs, please also |
Emacs without changes to the version number. When reporting bugs, please also |
5961 |
(ps-begin-page)) |
(ps-begin-page)) |
5962 |
|
|
5963 |
|
|
5964 |
|
(defun ps-end-sheet () |
5965 |
|
(and ps-print-page-p (> ps-page-sheet 0) |
5966 |
|
(ps-output "EndSheet\n"))) |
5967 |
|
|
5968 |
|
|
5969 |
(defun ps-header-sheet () |
(defun ps-header-sheet () |
5970 |
;; Print only when a new sheet begins. |
;; Print only when a new sheet begins. |
5971 |
(and ps-print-page-p (> ps-page-sheet 0) |
(ps-end-sheet) |
|
(ps-output "EndSheet\n")) |
|
5972 |
(setq ps-page-sheet (1+ ps-page-sheet)) |
(setq ps-page-sheet (1+ ps-page-sheet)) |
5973 |
(when (ps-print-sheet-p) |
(when (ps-print-sheet-p) |
5974 |
(setq ps-page-order (1+ ps-page-order)) |
(setq ps-page-order (1+ ps-page-order)) |
6693 |
|
|
6694 |
|
|
6695 |
(defun ps-end-job (needs-begin-file) |
(defun ps-end-job (needs-begin-file) |
6696 |
(let ((previous-print ps-print-page-p) |
(let ((ps-print-page-p t)) |
|
(ps-print-page-p t)) |
|
6697 |
(ps-flush-output) |
(ps-flush-output) |
6698 |
(save-excursion |
(save-excursion |
6699 |
(let ((pages-per-sheet (mod ps-page-printed ps-n-up-printing)) |
(let ((pages-per-sheet (mod ps-page-printed ps-n-up-printing)) |
6720 |
(number-to-string ps-lines-printed) " BeginPage\n") |
(number-to-string ps-lines-printed) " BeginPage\n") |
6721 |
(ps-end-page))) |
(ps-end-page))) |
6722 |
;; Set end of PostScript file |
;; Set end of PostScript file |
6723 |
(and previous-print |
(ps-end-sheet) |
|
(ps-output "EndSheet\n")) |
|
6724 |
(ps-output "\n%%Trailer\n%%Pages: " |
(ps-output "\n%%Trailer\n%%Pages: " |
6725 |
(number-to-string |
(number-to-string |
6726 |
(if (and needs-begin-file |
(if (and needs-begin-file |