From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Thu, 1 Nov 2007 01:54:48 +0000 (+0000)
Subject: Eliminate the check if ps-print was running on Lucid or Epoch emacsen
X-Git-Tag: emacs-pretest-23.0.90~8295^2~286
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6b1c1c403b21fbbc4af2dd90d1384a743a6acaaa;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e384be4c020..9dd9c9d4c4b 100644
--- 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 269c9508a9d..d879d1795d7 100644
--- 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