Clean the code for checking suitable Emacs version.

2 files changed, 7 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef1ec9f20fa..1919f435af7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2007-11-09  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
-        * ps-print.el (ps-do-despool): If ps-lpr-switches is not a list, force
-        it to be one.
+        * ps-print.el: Clean the code for checking suitable Emacs version.
+        (ps-do-despool): If ps-lpr-switches is not a list, force it to be one.
         (ps-print-version): New version 6.8.1.
 
 2007-11-09  Juanma Barranquero  <lekktu@gmail.com>
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index ecd5488f9dc..ce92e4781ef 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1462,12 +1462,11 @@ Please send all bug fixes and enhancements to
 (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