comparison lisp/ps-print.el @ 32914:29cbd0eb60e6

Avoid compilation gripes. (ps-print-version): New version number (6.2.1).

32913:8a79f057b2a5

;; Author:	Vinicius Jose Latorre <[e-mail]>
;; Author:	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer:	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer:	Vinicius Jose Latorre <[e-mail]>
;; Keywords:	wp, print, PostScript
;; Time-stamp:	<2000/10/18 18:31:37 vinicius>
;; Version:	6.2
;; X-URL:	http://www.cpqd.com.br/~vinicius/emacs/

(defconst ps-print-version "6.2"
  "ps-print.el, v 6.2 <2000/10/18 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.

	(t				; emacs
	 (defun ps-color-device ()
	   t)
	 ))

  (cond ((eq ps-print-emacs-type 'emacs) ; emacs

	 (defun ps-color-values (x-color)
	   (if (fboundp 'x-color-values)
	       (x-color-values x-color)

					; 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-mapper (extent list)
	   (nconc list
		  (list (list (ps-x-extent-start-position extent) 'push extent)
			(list (ps-x-extent-end-position extent) 'pull extent)))
	   nil)

	 (defun ps-extent-sorter (a b)
	   (< (ps-x-extent-priority a) (ps-x-extent-priority b)))

	 (defun ps-xemacs-face-kind-p (face kind kind-regex)
	   (let* ((frame-font (or (ps-x-face-font-instance face)
				  (ps-x-face-font-instance 'default)))
		  (kind-cons
		   (and frame-font
			(assq kind
			      (ps-x-font-instance-properties frame-font))))
		  (kind-spec (cdr-safe kind-cons))
		  (case-fold-search t))
	     (and kind-spec (string-match kind-regex kind-spec))))

	 (defun ps-xemacs-color-name (color)
	   (if (ps-x-color-specifier-p color)
	       (ps-x-color-name color)
	     color))

	 (defun ps-color-values (x-color)
	   (let ((color (ps-xemacs-color-name x-color)))
	     (cond
	      ((fboundp 'x-color-values)

	       (ps-xemacs-face-kind-p face 'SLANT "i\\|o")
	       (memq face ps-italic-faces))) ; Kludge-compatible
	 )))


(defun ps-color-scale (color)
  ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
  (mapcar #'(lambda (value) (/ value ps-print-color-scale))
	  (ps-color-values color)))

(defvar ps-print-width nil)
(defvar ps-print-height nil)

(defvar ps-height-remaining nil)
(defvar ps-width-remaining nil)

(defvar ps-print-color-scale nil)

(defvar ps-font-size-internal nil)
(defvar ps-header-font-size-internal nil)
(defvar ps-header-title-font-size-internal nil)

		(ps-face-background-name face))))


;; to avoid compilation gripes
(eval-and-compile
  (defun ps-print-ensure-fontified (start end)
    (and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)
	 (lazy-lock-fontify-region start end))))

32914:29cbd0eb60e6

;; Author:	Vinicius Jose Latorre <[e-mail]>
;; Author:	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer:	Kenichi Handa <[e-mail]> (multi-byte characters)
;; Maintainer:	Vinicius Jose Latorre <[e-mail]>
;; Keywords:	wp, print, PostScript
;; Time-stamp:	<2000/10/19 11:54:10 vinicius>
;; Version:	6.2.1
;; X-URL:	http://www.cpqd.com.br/~vinicius/emacs/

(defconst ps-print-version "6.2.1"
  "ps-print.el, v 6.2.1 <2000/10/19 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.

	(t				; emacs
	 (defun ps-color-device ()
	   t)
	 ))

  (defun ps-mapper (extent list)
    (nconc list
	   (list (list (ps-x-extent-start-position extent) 'push extent)
		 (list (ps-x-extent-end-position extent) 'pull extent)))
    nil)

  (defun ps-extent-sorter (a b)
    (< (ps-x-extent-priority a) (ps-x-extent-priority b)))

  (defun ps-xemacs-face-kind-p (face kind kind-regex)
    (let* ((frame-font (or (ps-x-face-font-instance face)
			   (ps-x-face-font-instance 'default)))
	   (kind-cons
	    (and frame-font
		 (assq kind
		       (ps-x-font-instance-properties frame-font))))
	   (kind-spec (cdr-safe kind-cons))
	   (case-fold-search t))
      (and kind-spec (string-match kind-regex kind-spec))))

  (defun ps-xemacs-color-name (color)
    (if (ps-x-color-specifier-p color)
	(ps-x-color-name color)
      color))

  (cond ((eq ps-print-emacs-type 'emacs) ; emacs

	 (defun ps-color-values (x-color)
	   (if (fboundp 'x-color-values)
	       (x-color-values x-color)

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

	       (ps-xemacs-face-kind-p face 'SLANT "i\\|o")
	       (memq face ps-italic-faces))) ; Kludge-compatible
	 )))


(defvar ps-print-color-scale nil)

(defun ps-color-scale (color)
  ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval.
  (mapcar #'(lambda (value) (/ value ps-print-color-scale))
	  (ps-color-values color)))

(defvar ps-print-width nil)
(defvar ps-print-height nil)

(defvar ps-height-remaining nil)
(defvar ps-width-remaining nil)

(defvar ps-font-size-internal nil)
(defvar ps-header-font-size-internal nil)
(defvar ps-header-title-font-size-internal nil)

		(ps-face-background-name face))))


;; to avoid compilation gripes
(eval-and-compile
  (require 'lazy-lock)

  (defun ps-print-ensure-fontified (start end)
    (and (boundp 'lazy-lock-mode) (symbol-value 'lazy-lock-mode)
	 (lazy-lock-fontify-region start end))))