Eliminate the check if ps-print was running on Lucid or Epoch emacsen

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e384be4c020a582823b884539228da141945a6ba..9dd9c9d4c4b5b3141793c719c9449c210e1b0a04 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-31  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * ps-print.el: Eliminate the check if ps-print was running on Lucid or
+       Epoch emacsen.
+
 2007-10-27  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
        * ps-print.el: Now detect if text foreground and background colors are

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 269c9508a9da9b302f7e1538d73b95993c99b373..d879d1795d73ef28f25c3aaf2dfc85c1f083cba5 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1464,16 +1464,11 @@ Please send all bug fixes and enhancements to
     (error "`ps-print' requires floating point support"))
 
 
-(let ((case-fold-search t))
-  (cond ((featurep 'xemacs))
-       ((string-match "Lucid" emacs-version)
-        (error "`ps-print' doesn't support Lucid"))
-       ((string-match "Epoch" emacs-version)
-        (error "`ps-print' doesn't support Epoch"))
-       (t
-        (unless (and (boundp 'emacs-major-version)
-                     (>= emacs-major-version 23))
-          (error "`ps-print' only supports Emacs 23 and higher")))))
+(if (featurep 'xemacs)
+    ()
+  (unless (and (boundp 'emacs-major-version)
+              (>= emacs-major-version 23))
+    (error "`ps-print' only supports Emacs 23 and higher")))
 
 
 (defconst ps-windows-system