procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ps-print selection page fix

Browse source
This commit is contained in:
Vinicius Jose Latorre 2005-06-28 03:13:02 +00:00
parent 3a1f1d792b
commit 9dae638c17
2 changed files with 19 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2005-06-27 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-print.el: It was not working the page selection for printing.
Reported by Sebastian Tennant <sebyte@smolny.plus.com>.
(ps-print-version): New version 6.6.7.
(ps-end-sheet): New fun.
(ps-header-sheet, ps-end-job): Call it.
2005-06-27 Luc Teirlinck <teirllm@auburn.edu>
* subr.el (add-to-list, add-to-ordered-list): Doc fixes.

20
lisp/ps-print.el
View file

@ -10,12 +10,12 @@
;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
;; Time-stamp: <2005/03/19 00:40:12 vinicius>
;; Version: 6.6.6
;; Time-stamp: <2005/06/27 00:57:22 vinicius>
;; Version: 6.6.7
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
(defconst ps-print-version "6.6.6"
"ps-print.el, v 6.6.6 <2005/03/19 vinicius>
"ps-print.el, v 6.6.7 <2005/06/27 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, please also
@ -5961,10 +5961,14 @@ XSTART YSTART are the relative position for the first page in a sheet.")
(ps-begin-page))
(defun ps-end-sheet ()
(and ps-print-page-p (> ps-page-sheet 0)
(ps-output "EndSheet\n")))
(defun ps-header-sheet ()
;; Print only when a new sheet begins.
(and ps-print-page-p (> ps-page-sheet 0)
(ps-output "EndSheet\n"))
(ps-end-sheet)
(setq ps-page-sheet (1+ ps-page-sheet))
(when (ps-print-sheet-p)
(setq ps-page-order (1+ ps-page-order))
@ -6689,8 +6693,7 @@ If FACE is not a valid face name, it is used default face."
(defun ps-end-job (needs-begin-file)
(let ((previous-print ps-print-page-p)
(ps-print-page-p t))
(let ((ps-print-page-p t))
(ps-flush-output)
(save-excursion
(let ((pages-per-sheet (mod ps-page-printed ps-n-up-printing))
@ -6717,8 +6720,7 @@ If FACE is not a valid face name, it is used default face."
(number-to-string ps-lines-printed) " BeginPage\n")
(ps-end-page)))
;; Set end of PostScript file
(and previous-print
(ps-output "EndSheet\n"))
(ps-end-sheet)
(ps-output "\n%%Trailer\n%%Pages: "
(number-to-string
(if (and needs-begin-file