From d54ad496474b0294cb99bd072e17c9db56e97c53 Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Fri, 9 Nov 2007 15:34:03 +0000 Subject: [PATCH] Clean the code for checking suitable Emacs version. --- lisp/ChangeLog | 4 ++-- 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 - * 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 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 -- 2.39.2