# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 997862721 0
# Node ID 7ef80e3474d9378156dabdf4a28086ce6e6e1e5e
# Parent  d4d24695f9e225c51663f9e85f43af81646a14d2
Change error function arguments to follow Emacs
message convention.  Doc fix.
(ps-print-version): New version number (6.5.4).
(coding-system-for-write): Change declaration position to avoid
XEmacs compilation gripes.
(coding-system-for-read, buffer-file-coding-system): Declarations
to avoid XEmacs compilation gripes.

diff -r d4d24695f9e2 -r 7ef80e3474d9 lisp/ps-print.el
--- a/lisp/ps-print.el	Tue Aug 14 13:14:31 2001 +0000
+++ b/lisp/ps-print.el	Wed Aug 15 08:05:21 2001 +0000
@@ -10,12 +10,12 @@
 ;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
 ;;	Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords: wp, print, PostScript
-;; Time-stamp: <2001/06/19 11:01:09 vinicius>
-;; Version: 6.5.3
+;; Time-stamp: <2001/08/07 13:22:04 vinicius>
+;; Version: 6.5.4
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
 
-(defconst ps-print-version "6.5.3"
-  "ps-print.el, v 6.5.3 <2001/06/19 vinicius>
+(defconst ps-print-version "6.5.4"
+  "ps-print.el, v 6.5.4 <2001/08/07 vinicius>
 
 Vinicius's last change version -- this file may have been edited as part of
 Emacs without changes to the version number.  When reporting bugs, please also
@@ -3587,9 +3587,6 @@
 
   (cond ((eq ps-print-emacs-type 'emacs) ; emacs
 
-	 ;; to avoid XEmacs compilation gripes
-	 (defvar coding-system-for-write nil)
-
 	 (defun ps-color-values (x-color)
 	   (cond
 	    ((fboundp 'color-values)
@@ -3614,6 +3611,11 @@
 					; lucid
 	(t				; epoch
 
+	 ;; to avoid XEmacs compilation gripes
+	 (defvar coding-system-for-write   nil)
+	 (defvar coding-system-for-read    nil)
+	 (defvar buffer-file-coding-system nil)
+
 	 (and (fboundp 'find-coding-system)
 	      (or (ps-x-find-coding-system 'raw-text-unix)
 		  (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix)))