Mercurial > emacs

diff lisp/emacs-lisp/elint.el @ 89909:68c22ea6027c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync to HEAD
author Kenichi Handa <handa@m17n.org>
date Fri, 16 Apr 2004 12:51:06 +0000
parents 375f2633d815
children f2ebccfa87d4
line wrap: on
line diff
--- a/lisp/emacs-lisp/elint.el	Thu Apr 15 01:08:34 2004 +0000
+++ b/lisp/emacs-lisp/elint.el	Fri Apr 16 12:51:06 2004 +0000
@@ -540,7 +540,8 @@
 (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)
@@ -801,4 +802,5 @@
 
 (provide 'elint)
 
+;;; arch-tag: b2f061e2-af84-4ddc-8e39-f5e969ac228f
 ;;; elint.el ends here