From: John Paul Wallington <jpw@pobox.com>
Date: Mon, 20 Oct 2003 17:16:16 +0000 (+0000)
Subject: (elint-check-defcustom-form): Don't use `evenp'	so we don't implicitly
X-Git-Tag: ttn-vms-21-2-B4~8513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=748fb1aabd8cb3fd65128560bbf6085efaa59a0e;p=emacs.git

(elint-check-defcustom-form): Don't use `evenp'	so we don't implicitly
require cl library at runtime.
---

diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 75ca3122773..f0f8add4879 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -540,7 +540,8 @@ CODE can be a lambda expression, a macro, or byte-compiled code."
 (defun elint-check-defcustom-form (form env)
   "Lint the defcustom FORM in ENV."
   (if (and (> (length form) 3)
-	   (evenp (length form)))	; even no. of keyword/value args
+	   ;; even no. of keyword/value args ?
+	   (zerop (logand (length form) 1)))
       (elint-env-add-global-var (elint-form (nth 2 form) env)
 				(car (cdr form)))
     (elint-error "Malformed variable declaration: %s" form)