/[emacs]/emacs/lisp/printing.el
ViewVC logotype

Diff of /emacs/lisp/printing.el

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

revision 1.18 by viniciusjl, Wed Sep 22 02:28:21 2004 UTC revision 1.19 by viniciusjl, Mon Sep 27 04:26:15 2004 UTC
# Line 5  Line 5 
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>
# Line 125  Please send all bug fixes and enhancemen Line 125  Please send all bug fixes and enhancemen
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
# Line 263  Please send all bug fixes and enhancemen Line 263  Please send all bug fixes and enhancemen
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  ;;  ;;
# Line 3887  image in a file with that name." Line 3888  image in a file with that name."
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)
# Line 5221  non-nil." Line 5222  non-nil."
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)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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