From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 26 Oct 2000 14:15:15 +0000 (+0000)
Subject: Avoid compilation gripes.
X-Git-Tag: emacs-pretest-21.0.90~548
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=47b54c71f809463c91c19145985677d8f393e500;p=emacs.git

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

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index b6c3275c350..57353f9890c 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -9,12 +9,12 @@
 ;; Maintainer:	Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
 ;; Maintainer:	Vinicius Jose Latorre <vinicius@cpqd.com.br>
 ;; Keywords:	wp, print, PostScript
-;; Time-stamp:	<2000/10/18 18:31:37 vinicius>
-;; Version:	6.2
+;; 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"
-  "ps-print.el, v 6.2 <2000/10/18 vinicius>
+(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
@@ -2923,6 +2923,31 @@ The table depends on the current ps-print setup."
 	   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)
@@ -2948,31 +2973,6 @@ The table depends on the current ps-print setup."
 	 (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
@@ -3004,6 +3004,8 @@ The table depends on the current ps-print setup."
 	 )))
 
 
+(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))
@@ -3109,8 +3111,6 @@ This is in units of points (1/72 inch).")
 (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)
@@ -5216,6 +5216,8 @@ If FACE is not a valid face name, it is used default 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))))