From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 17 Nov 2000 22:50:15 +0000 (+0000)
Subject: Minor fixes from author.
X-Git-Tag: emacs-pretest-21.0.91~29
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=08ea6f1714f0fff2abd1db1889ef8b5ea95bc671;p=emacs.git

Minor fixes from author.
---

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)))