/[emacs]/emacs/lisp/emacs-lisp/elint.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/elint.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5.4.2 by miles, Tue Oct 14 23:32:21 2003 UTC revision 1.5.4.3 by miles, Fri Nov 21 00:36:07 2003 UTC
# Line 540  CODE can be a lambda expression, a macro Line 540  CODE can be a lambda expression, a macro
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)

Legend:
Removed from v.1.5.4.2  
changed lines
  Added in v.1.5.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26