diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2007-11-09 15:34:03 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2007-11-09 15:34:03 +0000 |
| commit | d54ad496474b0294cb99bd072e17c9db56e97c53 (patch) | |
| tree | d1bfb0786ef433793b2fdeaaed089b0d791c1eb2 /lisp/ps-print.el | |
| parent | 4a6789f7cda3fde1cd089b619ff23cd5adb68228 (diff) | |
| download | emacs-d54ad496474b0294cb99bd072e17c9db56e97c53.tar.gz emacs-d54ad496474b0294cb99bd072e17c9db56e97c53.tar.bz2 emacs-d54ad496474b0294cb99bd072e17c9db56e97c53.zip | |
Clean the code for checking suitable Emacs version.
Diffstat (limited to 'lisp/ps-print.el')
| -rw-r--r-- | lisp/ps-print.el | 11 |
1 files changed, 5 insertions, 6 deletions
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 |