diff options
| author | John Paul Wallington | 2003-10-20 17:16:16 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2003-10-20 17:16:16 +0000 |
| commit | 748fb1aabd8cb3fd65128560bbf6085efaa59a0e (patch) | |
| tree | 2c37137e0521c3879c39e28d794cbd6aa1340212 | |
| parent | 62d2014211134a9bbbd51c522074a3f4a8ae43a5 (diff) | |
| download | emacs-748fb1aabd8cb3fd65128560bbf6085efaa59a0e.tar.gz emacs-748fb1aabd8cb3fd65128560bbf6085efaa59a0e.zip | |
(elint-check-defcustom-form): Don't use `evenp' so we don't implicitly
require cl library at runtime.
| -rw-r--r-- | lisp/emacs-lisp/elint.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 540 | (defun elint-check-defcustom-form (form env) | 540 | (defun elint-check-defcustom-form (form env) |
| 541 | "Lint the defcustom FORM in ENV." | 541 | "Lint the defcustom FORM in ENV." |
| 542 | (if (and (> (length form) 3) | 542 | (if (and (> (length form) 3) |
| 543 | (evenp (length form))) ; even no. of keyword/value args | 543 | ;; even no. of keyword/value args ? |
| 544 | (zerop (logand (length form) 1))) | ||
| 544 | (elint-env-add-global-var (elint-form (nth 2 form) env) | 545 | (elint-env-add-global-var (elint-form (nth 2 form) env) |
| 545 | (car (cdr form))) | 546 | (car (cdr form))) |
| 546 | (elint-error "Malformed variable declaration: %s" form) | 547 | (elint-error "Malformed variable declaration: %s" form) |