diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-11-17 22:50:15 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-11-17 22:50:15 +0000 |
| commit | 08ea6f1714f0fff2abd1db1889ef8b5ea95bc671 (patch) | |
| tree | a6916626122d35fe856aa235f863fb03367243c0 /lisp/ps-print.el | |
| parent | c9a6f68fec73f72f84307634f576e42137d8c0e9 (diff) | |
| download | emacs-08ea6f1714f0fff2abd1db1889ef8b5ea95bc671.tar.gz | |
Minor fixes from author.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 10 |
1 files changed, 6 insertions, 4 deletions
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))) |