Commit afdceaec authored by Glenn Morris's avatar Glenn Morris
Browse files

(elint-init-env): Skip non-list forms.

(elint-log): Handle unknown file positions.
parent fd40bad4
......@@ -18,6 +18,8 @@
1000.
(elint-add-required-env): Don't beep on error.
(elint-forms): In case of error, return ENV unchanged.
(elint-init-env): Skip non-list forms.
(elint-log): Handle unknown file positions.
2009-09-12 Daiki Ueno <ueno@unixuser.org>
......
......@@ -298,6 +298,9 @@ Return nil if there are no more forms, t otherwise."
(setq form (elint-top-form-form (car forms))
forms (cdr forms))
(cond
;; Eg nnmaildir seems to use [] as a form of comment syntax.
((not (listp form))
(elint-error "Skipping non-list form `%s'" form))
;; Add defined variable
((memq (car form) '(defvar defconst defcustom))
(setq env (elint-env-add-var env (cadr form))))
......@@ -686,10 +689,12 @@ CODE can be a lambda expression, a macro, or byte-compiled code."
(if f
(file-name-nondirectory f)
(buffer-name)))
(save-excursion
(goto-char elint-current-pos)
(1+ (count-lines (point-min)
(line-beginning-position))))
(if (boundp 'elint-current-pos)
(save-excursion
(goto-char elint-current-pos)
(1+ (count-lines (point-min)
(line-beginning-position))))
0) ; unknown position
type
(apply 'format string args))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment