diff lisp/ps-print.el @ 85988:915f18d633ac

Clean the code for checking suitable Emacs version.

--- a/lisp/ps-print.el	Fri Nov 09 15:23:07 2007 +0000
+++ b/lisp/ps-print.el	Fri Nov 09 15:34:03 2007 +0000
@@ -1462,12 +1462,11 @@
 (or (featurep 'lisp-float-type)
     (error "`ps-print' requires floating point support"))
 
-(let ((case-fold-search t))
-  (cond ((featurep 'xemacs))
-	(t
-	 (unless (and (boundp 'emacs-major-version)
-		      (>= emacs-major-version 22))
-	   (error "`ps-print' only supports Emacs 22 and higher")))))
+(if (featurep 'xemacs)
+    ()
+  (unless (and (boundp 'emacs-major-version)
+	       (>= emacs-major-version 22))
+    (error "`ps-print' only supports Emacs 22 and higher")))
 
 
 ;; GNU Emacs