540 |
(defun elint-check-defcustom-form (form env) |
(defun elint-check-defcustom-form (form env) |
541 |
"Lint the defcustom FORM in ENV." |
"Lint the defcustom FORM in ENV." |
542 |
(if (and (> (length form) 3) |
(if (and (> (length form) 3) |
543 |
(evenp (length form))) ; even no. of keyword/value args |
;; even no. of keyword/value args ? |
544 |
|
(zerop (logand (length form) 1))) |
545 |
(elint-env-add-global-var (elint-form (nth 2 form) env) |
(elint-env-add-global-var (elint-form (nth 2 form) env) |
546 |
(car (cdr form))) |
(car (cdr form))) |
547 |
(elint-error "Malformed variable declaration: %s" form) |
(elint-error "Malformed variable declaration: %s" form) |