Clean the code for checking suitable Emacs version.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ef1ec9f20fa125d151def1ce1e5ebd21e8987d5d..1919f435af7492c4463e5d8c897c776dac444e4d 100644 (file)
--- 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 ecd5488f9dcbb1b8550380eb5befb0d92b045da7..ce92e4781efbf2500b3a1d48545dc616a616ffb1 100644 (file)
--- 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