/[emacs]/emacs/lisp/ps-print.el
ViewVC logotype

Diff of /emacs/lisp/ps-print.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.158 by jurta, Wed Jun 22 12:06:50 2005 UTC revision 1.159 by viniciusjl, Tue Jun 28 03:13:02 2005 UTC
# Line 10  Line 10 
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
# Line 5961  XSTART YSTART are the relative position Line 5961  XSTART YSTART are the relative position
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))
# Line 6689  If FACE is not a valid face name, it is Line 6693  If FACE is not a valid face name, it is
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))
# Line 6717  If FACE is not a valid face name, it is Line 6720  If FACE is not a valid face name, it is
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

Legend:
Removed from v.1.158  
changed lines
  Added in v.1.159

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26