[Emacs-diffs] Changes to emacs/lisp/ps-print.el

[Vinicius Jose Latorre]

Index: emacs/lisp/ps-print.el
diff -c emacs/lisp/ps-print.el:1.136 emacs/lisp/ps-print.el:1.137
*** emacs/lisp/ps-print.el:1.136        Wed May 14 22:32:03 2003
--- emacs/lisp/ps-print.el      Thu Jul 10 18:29:13 2003
***************
*** 10,21 ****
  ;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
  ;;    Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, print, PostScript
! ;; Time-stamp: <2003/05/14 22:34:05 vinicius>
! ;; Version: 6.6.1
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
! (defconst ps-print-version "6.6.1"
!   "ps-print.el, v 6.6.1 <2003/05/14 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
--- 10,21 ----
  ;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
  ;;    Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, print, PostScript
! ;; Time-stamp: <2003/07/10 19:19:12 vinicius>
! ;; Version: 6.6.2
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
  
! (defconst ps-print-version "6.6.2"
!   "ps-print.el, v 6.6.2 <2003/07/10 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
***************
*** 4126,4132 ****
  
  (defun ps-spool-without-faces (from to &optional region-p)
    (run-hooks 'ps-print-hook)
!   (ps-printing-region region-p from)
    (ps-generate (current-buffer) from to 'ps-generate-postscript))
  
  
--- 4126,4132 ----
  
  (defun ps-spool-without-faces (from to &optional region-p)
    (run-hooks 'ps-print-hook)
!   (ps-printing-region region-p from to)
    (ps-generate (current-buffer) from to 'ps-generate-postscript))
  
  
***************
*** 4137,4143 ****
  
  (defun ps-spool-with-faces (from to &optional region-p)
    (run-hooks 'ps-print-hook)
!   (ps-printing-region region-p from)
    (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces))
  
  
--- 4137,4143 ----
  
  (defun ps-spool-with-faces (from to &optional region-p)
    (run-hooks 'ps-print-hook)
!   (ps-printing-region region-p from to)
    (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces))
  
  
***************
*** 4167,4177 ****
    "Non-nil means ps-print is printing a region.")
  
  
! (defun ps-printing-region (region-p from)
    (setq ps-printing-region-p region-p
        ps-printing-region
        (cons (if region-p
!                 (ps-count-lines (point-min) from)
                1)
              (ps-count-lines (point-min) (point-max)))))
  
--- 4167,4177 ----
    "Non-nil means ps-print is printing a region.")
  
  
! (defun ps-printing-region (region-p from to)
    (setq ps-printing-region-p region-p
        ps-printing-region
        (cons (if region-p
!                 (ps-count-lines (point-min) (min from to))
                1)
              (ps-count-lines (point-min) (point-max)))))