(ps-print-emacs-type): Move into the

eval-and-compile.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2272474cb5437d7aca0297ab2ccd5c706d09aacb..ddb10778824c10ee6da3d9fa4e1cbd889b84b367 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-19  Gerd Moellmann  <gerd@gnu.org>
+
+       * ps-print.el (ps-print-emacs-type): Move into the
+       eval-and-compile.
+
 2000-10-19  Vinicius Jose Latorre  <vinicius@cpqd.com.br>
 
        * ps-print.el: Even/odd pages fix.  Fix little bug on XEmacs.  Avoid

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 0e88614c847e3a3739ca5d3a69b9c22b36c139bd..834ad7d2855cde8e220b2082fa4ffb7d579bb07d 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -2896,20 +2896,19 @@ The table depends on the current ps-print setup."
         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.