Mercurial > emacs
diff lisp/ps-print.el @ 85988:915f18d633ac
Clean the code for checking suitable Emacs version.
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Fri, 09 Nov 2007 15:34:03 +0000 |
parents | 6a97e5e13b22 |
children | 4a4d5773bb72 880960b70474 |
line wrap: on
line diff
--- 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