5 |
|
|
6 |
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
7 |
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
8 |
;; Time-stamp: <2004/09/21 22:51:58 vinicius> |
;; Time-stamp: <2004/09/26 22:11:24 vinicius> |
9 |
;; Keywords: wp, print, PostScript |
;; Keywords: wp, print, PostScript |
10 |
;; Version: 6.8 |
;; Version: 6.8.1 |
11 |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ |
12 |
|
|
13 |
(defconst pr-version "6.8" |
(defconst pr-version "6.8.1" |
14 |
"printing.el, v 6.8 <2004/09/21 vinicius> |
"printing.el, v 6.8.1 <2004/09/26 vinicius> |
15 |
|
|
16 |
Please send all bug fixes and enhancements to |
Please send all bug fixes and enhancements to |
17 |
Vinicius Jose Latorre <viniciusjl@ig.com.br> |
Vinicius Jose Latorre <viniciusjl@ig.com.br> |
125 |
;; Novices (First Users) |
;; Novices (First Users) |
126 |
;; --------------------- |
;; --------------------- |
127 |
;; |
;; |
128 |
;; First of all, take a glance of printing documentation only to have an idea |
;; First of all, see printing documentation only to get an idea of what |
129 |
;; of what `printing' is capable. |
;; `printing' is capable. |
130 |
;; |
;; |
131 |
;; Then try to set the variables: `pr-ps-name', `pr-ps-printer-alist', |
;; Then try to set the variables: `pr-ps-name', `pr-ps-printer-alist', |
132 |
;; `pr-txt-name', `pr-txt-printer-alist' and `pr-path-alist'. These variables |
;; `pr-txt-name', `pr-txt-printer-alist' and `pr-path-alist'. These variables |
133 |
;; are the main variables for printing processing. |
;; are the main variables for printing processing. |
134 |
;; |
;; |
135 |
;; Now, please, see these variables documentation more in deep. You can do |
;; Now, please, see these variables documentation deeper. You can do this by |
136 |
;; this by typing C-h v pr-ps-name RET (for example) if you already loaded |
;; typing C-h v pr-ps-name RET (for example) if you already loaded printing |
137 |
;; printing package, or by browsing printing.el source file. |
;; package, or by browsing printing.el source file. |
138 |
;; |
;; |
139 |
;; If the documentation isn't clear or if you find a way to improve the |
;; If the documentation isn't clear or if you find a way to improve the |
140 |
;; documentation, please, send an email to maintainer. All printing users |
;; documentation, please, send an email to maintainer. All printing users |
263 |
;; in Windows. The gsprint utility is faster than ghostscript to print |
;; in Windows. The gsprint utility is faster than ghostscript to print |
264 |
;; monochrome PostScript. |
;; monochrome PostScript. |
265 |
;; |
;; |
266 |
;; The efficiency is similar to print non-monochrome PostScript file. |
;; To print non-monochrome PostScript file, the efficiency of ghostscript |
267 |
|
;; is similar to gsprint. |
268 |
;; |
;; |
269 |
;; Also the gsprint utility comes together with gsview distribution. |
;; Also the gsprint utility comes together with gsview distribution. |
270 |
;; |
;; |
3888 |
(interactive (list (pr-ps-infile-preprint "Print preview "))) |
(interactive (list (pr-ps-infile-preprint "Print preview "))) |
3889 |
(and (stringp filename) (file-exists-p filename) |
(and (stringp filename) (file-exists-p filename) |
3890 |
(let* ((file (pr-expand-file-name filename)) |
(let* ((file (pr-expand-file-name filename)) |
3891 |
(tempfile (pr-dosify-file-name (make-temp-name file)))) |
(tempfile (pr-dosify-file-name (make-temp-file file)))) |
3892 |
;; gs use |
;; gs use |
3893 |
(pr-call-process pr-gs-command |
(pr-call-process pr-gs-command |
3894 |
(format "-sDEVICE=%s" pr-gs-device) |
(format "-sDEVICE=%s" pr-gs-device) |
5222 |
|
|
5223 |
|
|
5224 |
(defun pr-delete-file (file) |
(defun pr-delete-file (file) |
5225 |
(and pr-delete-temp-file (delete-file file))) |
(and pr-delete-temp-file (file-exists-p file) |
5226 |
|
(delete-file file))) |
5227 |
|
|
5228 |
|
|
5229 |
(defun pr-expand-file-name (filename) |
(defun pr-expand-file-name (filename) |