mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 06:50:23 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
(elint-log): Handle unknown file positions.
This commit is contained in:
Glenn Morris 2009-09-12 22:32:52 +00:00
parent fd40bad45a
commit afdceaec7d
2 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/elint.el
View file

@ -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))))