Mercurial > emacs
changeset 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 | 89ba7e228a5b |
| files | lisp/ChangeLog lisp/ps-print.el |
| diffstat | 2 files changed, 7 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Nov 09 15:23:07 2007 +0000 +++ b/lisp/ChangeLog Fri Nov 09 15:34:03 2007 +0000 @@ -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>
--- 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