[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/printing.el
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/printing.el |
Date: |
Mon, 27 Sep 2004 00:36:44 -0400 |
Index: emacs/lisp/printing.el
diff -c emacs/lisp/printing.el:1.18 emacs/lisp/printing.el:1.19
*** emacs/lisp/printing.el:1.18 Wed Sep 22 02:28:21 2004
--- emacs/lisp/printing.el Mon Sep 27 04:26:15 2004
***************
*** 5,17 ****
;; Author: Vinicius Jose Latorre <address@hidden>
;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2004/09/21 22:51:58 vinicius>
;; Keywords: wp, print, PostScript
! ;; Version: 6.8
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
! (defconst pr-version "6.8"
! "printing.el, v 6.8 <2004/09/21 vinicius>
Please send all bug fixes and enhancements to
Vinicius Jose Latorre <address@hidden>
--- 5,17 ----
;; Author: Vinicius Jose Latorre <address@hidden>
;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2004/09/26 22:11:24 vinicius>
;; Keywords: wp, print, PostScript
! ;; Version: 6.8.1
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
! (defconst pr-version "6.8.1"
! "printing.el, v 6.8.1 <2004/09/26 vinicius>
Please send all bug fixes and enhancements to
Vinicius Jose Latorre <address@hidden>
***************
*** 125,140 ****
;; Novices (First Users)
;; ---------------------
;;
! ;; First of all, take a glance of printing documentation only to have an idea
! ;; of what `printing' is capable.
;;
;; Then try to set the variables: `pr-ps-name', `pr-ps-printer-alist',
;; `pr-txt-name', `pr-txt-printer-alist' and `pr-path-alist'. These variables
;; are the main variables for printing processing.
;;
! ;; Now, please, see these variables documentation more in deep. You can do
! ;; this by typing C-h v pr-ps-name RET (for example) if you already loaded
! ;; printing package, or by browsing printing.el source file.
;;
;; If the documentation isn't clear or if you find a way to improve the
;; documentation, please, send an email to maintainer. All printing users
--- 125,140 ----
;; Novices (First Users)
;; ---------------------
;;
! ;; First of all, see printing documentation only to get an idea of what
! ;; `printing' is capable.
;;
;; Then try to set the variables: `pr-ps-name', `pr-ps-printer-alist',
;; `pr-txt-name', `pr-txt-printer-alist' and `pr-path-alist'. These variables
;; are the main variables for printing processing.
;;
! ;; Now, please, see these variables documentation deeper. You can do this by
! ;; typing C-h v pr-ps-name RET (for example) if you already loaded printing
! ;; package, or by browsing printing.el source file.
;;
;; If the documentation isn't clear or if you find a way to improve the
;; documentation, please, send an email to maintainer. All printing users
***************
*** 263,269 ****
;; in Windows. The gsprint utility is faster than ghostscript to print
;; monochrome PostScript.
;;
! ;; The efficiency is similar to print non-monochrome PostScript file.
;;
;; Also the gsprint utility comes together with gsview distribution.
;;
--- 263,270 ----
;; in Windows. The gsprint utility is faster than ghostscript to print
;; monochrome PostScript.
;;
! ;; To print non-monochrome PostScript file, the efficiency of ghostscript
! ;; is similar to gsprint.
;;
;; Also the gsprint utility comes together with gsview distribution.
;;
***************
*** 3887,3893 ****
(interactive (list (pr-ps-infile-preprint "Print preview ")))
(and (stringp filename) (file-exists-p filename)
(let* ((file (pr-expand-file-name filename))
! (tempfile (pr-dosify-file-name (make-temp-name file))))
;; gs use
(pr-call-process pr-gs-command
(format "-sDEVICE=%s" pr-gs-device)
--- 3888,3894 ----
(interactive (list (pr-ps-infile-preprint "Print preview ")))
(and (stringp filename) (file-exists-p filename)
(let* ((file (pr-expand-file-name filename))
! (tempfile (pr-dosify-file-name (make-temp-file file))))
;; gs use
(pr-call-process pr-gs-command
(format "-sDEVICE=%s" pr-gs-device)
***************
*** 5221,5227 ****
(defun pr-delete-file (file)
! (and pr-delete-temp-file (delete-file file)))
(defun pr-expand-file-name (filename)
--- 5222,5229 ----
(defun pr-delete-file (file)
! (and pr-delete-temp-file (file-exists-p file)
! (delete-file file)))
(defun pr-expand-file-name (filename)