comparison lisp/ps-print.el @ 33579:952f2b202a9a

Minor fixes from author.

33578:2d5a46f974fa

;;; ps-print.el --- Print text from the buffer as PostScript

;; Copyright (C) 1993, 2000 Free Software Foundation, Inc.

;; Author:	Jim Thompson (was <[e-mail]>)
;; Author:	Jacques Duthen (was <[e-mail]>)
;; Author:	Vinicius Jose Latorre <[e-mail]>
;; Author:	Kenichi Handa <[e-mail]> (multi-byte characters)

;; Time-stamp:	<2000/11/01 14:39:00 vinicius>
;; Version:	6.3.1
;; 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>

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
report the version of Emacs, if any, that ps-print was distributed with.

      (if (< emacs-minor-version 12)
	  (setq ps-print-color-p nil))
    (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.
  (cond ((and (eq ps-print-emacs-type 'xemacs)
	      (>= emacs-minor-version 12)) ; xemacs

	 )
					; xemacs
					; lucid
	(t				; epoch

	 (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)))
	     (cond
	      ((fboundp 'x-color-values)

33579:952f2b202a9a

;;; ps-print.el --- Print text from the buffer as PostScript

;; Copyright (C) 1993-2000 Free Software Foundation, Inc.

;; Author:	Jim Thompson (was <[e-mail]>)
;; Author:	Jacques Duthen (was <[e-mail]>)
;; Author:	Vinicius Jose Latorre <[e-mail]>
;; Author:	Kenichi Handa <[e-mail]> (multi-byte characters)

;; Time-stamp:	<2000/11/01 14:39:00 vinicius>
;; Version:	6.3.1
;; X-URL:	http://www.cpqd.com.br/~vinicius/emacs/

(defconst ps-print-version "6.3.1"
  "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
report the version of Emacs, if any, that ps-print was distributed with.

      (if (< emacs-minor-version 12)
	  (setq ps-print-color-p nil))
    (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.
  (cond ((and (eq ps-print-emacs-type 'xemacs)
	      (>= emacs-minor-version 12)) ; xemacs

	 )
					; xemacs
					; lucid
	(t				; epoch

	 (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)))
	     (cond
	      ((fboundp 'x-color-values)