# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 971952887 0
# Node ID 0e090a7a70115ddf2d400363c8a403a227aecfbb
# Parent  ff2336f92cd0201132bb43907048ca09283f1729
(ps-print-emacs-type): Move into the
eval-and-compile.

diff -r ff2336f92cd0 -r 0e090a7a7011 lisp/ps-print.el
--- a/lisp/ps-print.el	Thu Oct 19 10:46:51 2000 +0000
+++ b/lisp/ps-print.el	Thu Oct 19 10:54:47 2000 +0000
@@ -2896,20 +2896,19 @@
 	 sym)))
 
 
-(defvar ps-print-emacs-type
-  (cond ((string-match "XEmacs" emacs-version) 'xemacs)
-	((string-match "Lucid" emacs-version) 'lucid)
-	((string-match "Epoch" emacs-version) 'epoch)
-	(t 'emacs)))
-
-(if (memq ps-print-emacs-type '(lucid xemacs))
-    (if (< emacs-minor-version 12)
-	(setq ps-print-color-p nil))
-  (require 'faces))			; face-font, face-underline-p,
+(eval-and-compile
+  (defvar ps-print-emacs-type
+    (cond ((string-match "XEmacs" emacs-version) 'xemacs)
+	  ((string-match "Lucid" emacs-version) 'lucid)
+	  ((string-match "Epoch" emacs-version) 'epoch)
+	  (t 'emacs)))
+
+  (if (memq ps-print-emacs-type '(lucid xemacs))
+      (if (< emacs-minor-version 12)
+	  (setq ps-print-color-p nil))
+    (require 'faces))			; face-font, face-underline-p,
 					; x-font-regexp
 
-
-(eval-and-compile
   ;; Return t if the device (which can be changed during an emacs session)
   ;; can handle colors.
   ;; This is function is not yet implemented for GNU emacs.