Minor fixes from author.

2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d33385e89df..9a5995880b7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-17  Gerd Moellmann  <gerd@gnu.org>
+
+        * ps-print.el: Minor fixes from author.
+
 2000-11-16  Stefan Monnier  <monnier@cs.yale.edu>
 
         * vc.el (vc-version-diff): Bind inhibit-read-only when inserting text.
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index fc27c966ea8..75fa9aa8eab 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -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 @@ The table depends on the current ps-print setup."
     (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 @@ The table depends on the current ps-print setup."
                                         ; 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)))