comparison lisp/emacs-lisp/elint.el @ 104989:bbe883d49650

(elint-init-env): Skip non-list forms. (elint-log): Handle unknown file positions.

104988:3edc5799260a

	form)
    (while forms
      (setq form (elint-top-form-form (car forms))
	    forms (cdr forms))
      (cond
       ;; Add defined variable
       ((memq (car form) '(defvar defconst defcustom))
	(setq env (elint-env-add-var env (cadr form))))
       ;; Add function
       ((memq (car form) '(defun defsubst))

  (elint-log-message (format "%s:%d:%s: %s"
			     (let ((f (buffer-file-name)))
			       (if f
				   (file-name-nondirectory f)
				 (buffer-name)))
			     (save-excursion
			       (goto-char elint-current-pos)
			       (1+ (count-lines (point-min)
						(line-beginning-position))))
			     type
			     (apply 'format string args))))

(defun elint-error (string &rest args)
  "Report a linting error.

104989:bbe883d49650

	form)
    (while forms
      (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))))
       ;; Add function
       ((memq (car form) '(defun defsubst))

  (elint-log-message (format "%s:%d:%s: %s"
			     (let ((f (buffer-file-name)))
			       (if f
				   (file-name-nondirectory f)
				 (buffer-name)))
			     (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))))

(defun elint-error (string &rest args)
  "Report a linting error.