diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/ps-print.el | 11 |
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 |