Minor fixes from author.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d33385e89df6fb787d7dd5ed69dfa1c823b386e1..9a5995880b75469b2dc26a0ebf589f663b3d457b 100644 (file)
--- 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 fc27c966ea8612665061c623b9a4eefe20022cfb..75fa9aa8eab04c1ba43900ba015e1d14179957e1 100644 (file)
--- 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)))