Function: elint-update-env

elint-update-env is a byte-compiled function defined in elint.el.gz.

Signature

(elint-update-env)

Documentation

Update the elint environment in the current buffer.

Don't do anything if the buffer hasn't been changed since this function was called the last time. Returns the forms.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/elint.el.gz
(defun elint-update-env ()
  "Update the elint environment in the current buffer.
Don't do anything if the buffer hasn't been changed since this
function was called the last time.
Returns the forms."
  (if (and (local-variable-p 'elint-buffer-env (current-buffer))
	   (local-variable-p 'elint-buffer-forms (current-buffer))
	   (local-variable-p 'elint-last-env-time (current-buffer))
	   (= (buffer-modified-tick) elint-last-env-time))
      ;; Env is up to date
      elint-buffer-forms
    ;; Remake env
    (setq-local elint-buffer-forms (elint-get-top-forms))
    (setq-local elint-features nil)
    (setq-local elint-buffer-env (elint-init-env elint-buffer-forms))
    (if elint-preloaded-env
        ;; FIXME: This doesn't do anything!  Should we setq the result to
        ;; elint-buffer-env?
	(elint-env-add-env elint-preloaded-env elint-buffer-env))
    (setq-local elint-last-env-time (buffer-modified-tick))
    elint-buffer-forms))