[Emacs-diffs] Changes to emacs/lisp/printing.el [lexbind]

[Miles Bader]

Index: emacs/lisp/printing.el
diff -c emacs/lisp/printing.el:1.3.2.12 emacs/lisp/printing.el:1.3.2.13
*** emacs/lisp/printing.el:1.3.2.12     Wed Oct  6 05:21:50 2004
--- emacs/lisp/printing.el      Wed Oct  6 05:23:53 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)