/[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.136 by viniciusjl, Thu May 15 02:32:03 2003 UTC revision 1.137 by viniciusjl, Thu Jul 10 22:29:13 2003 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: <2003/05/14 22:34:05 vinicius>  ;; Time-stamp: <2003/07/10 19:19:12 vinicius>
14  ;; Version: 6.6.1  ;; Version: 6.6.2
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.1"  (defconst ps-print-version "6.6.2"
18    "ps-print.el, v 6.6.1 <2003/05/14 vinicius>    "ps-print.el, v 6.6.2 <2003/07/10 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 4126  If EXTENSION is any other symbol, it is Line 4126  If EXTENSION is any other symbol, it is
4126    
4127  (defun ps-spool-without-faces (from to &optional region-p)  (defun ps-spool-without-faces (from to &optional region-p)
4128    (run-hooks 'ps-print-hook)    (run-hooks 'ps-print-hook)
4129    (ps-printing-region region-p from)    (ps-printing-region region-p from to)
4130    (ps-generate (current-buffer) from to 'ps-generate-postscript))    (ps-generate (current-buffer) from to 'ps-generate-postscript))
4131    
4132    
# Line 4137  If EXTENSION is any other symbol, it is Line 4137  If EXTENSION is any other symbol, it is
4137    
4138  (defun ps-spool-with-faces (from to &optional region-p)  (defun ps-spool-with-faces (from to &optional region-p)
4139    (run-hooks 'ps-print-hook)    (run-hooks 'ps-print-hook)
4140    (ps-printing-region region-p from)    (ps-printing-region region-p from to)
4141    (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces))    (ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces))
4142    
4143    
# Line 4167  file.") Line 4167  file.")
4167    "Non-nil means ps-print is printing a region.")    "Non-nil means ps-print is printing a region.")
4168    
4169    
4170  (defun ps-printing-region (region-p from)  (defun ps-printing-region (region-p from to)
4171    (setq ps-printing-region-p region-p    (setq ps-printing-region-p region-p
4172          ps-printing-region          ps-printing-region
4173          (cons (if region-p          (cons (if region-p
4174                    (ps-count-lines (point-min) from)                    (ps-count-lines (point-min) (min from to))
4175                  1)                  1)
4176                (ps-count-lines (point-min) (point-max)))))                (ps-count-lines (point-min) (point-max)))))
4177    

Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137

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