# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 974501385 0
# Node ID 952f2b202a9ae393fdeed39f964c7adc15338bc5
# Parent  2d5a46f974fa4790532278e403f2d178e7e3f78a
Minor fixes from author.

diff -r 2d5a46f974fa -r 952f2b202a9a lisp/ps-print.el
--- a/lisp/ps-print.el	Fri Nov 17 22:36:22 2000 +0000
+++ b/lisp/ps-print.el	Fri Nov 17 22:49:45 2000 +0000
@@ -1,6 +1,6 @@
 ;;; ps-print.el --- Print text from the buffer as PostScript
 
-;; Copyright (C) 1993, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1993-2000 Free Software Foundation, Inc.
 
 ;; Author:	Jim Thompson (was <thompson@wg2.waii.com>)
 ;; Author:	Jacques Duthen (was <duthen@cegelec-red.fr>)
@@ -14,7 +14,7 @@
 ;; X-URL:	http://www.cpqd.com.br/~vinicius/emacs/
 
 (defconst ps-print-version "6.3.1"
-  "ps-print.el, v 6.3.1 <2000/10/30 vinicius>
+  "ps-print.el, v 6.3.1 <2000/11/01 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
@@ -2962,6 +2962,7 @@
     (require 'faces))			; face-font, face-underline-p,
 					; x-font-regexp
 
+
   ;; Return t if the device (which can be changed during an emacs session)
   ;; can handle colors.
   ;; This function is not yet implemented for GNU emacs.
@@ -3028,8 +3029,9 @@
 					; lucid
 	(t				; epoch
 
-	 (or (ps-x-find-coding-system 'raw-text-unix)
-	     (ps-x-copy-coding-system 'no-conversion-unix 'raw-text-unix))
+	 (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)))
 
 	 (defun ps-color-values (x-color)
 	   (let ((color (ps-xemacs-color-name x-color)))