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 |
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 |
|
|
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 |
|
|
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 |
|
|