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

(elint-add-required-env): Revert to not using temp-buffers (2009-09-12).

Browse source
This commit is contained in:
Glenn Morris 2009-09-14 00:48:06 +00:00
parent 7d0105e573
commit d62e5bf28f
2 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -352,14 +352,17 @@ Return nil if there are no more forms, t otherwise."
(message nil)
(if lib
(save-excursion
;;; (set-buffer (find-file-noselect lib))
;;; (elint-update-env)
;;; (setq env (elint-env-add-env env elint-buffer-env)))
(with-temp-buffer
(insert-file-contents lib)
(with-syntax-table emacs-lisp-mode-syntax-table
(elint-update-env))
(setq env (elint-env-add-env env elint-buffer-env))))
;; FIXME this doesn't use a temp buffer, because it
;; stores the result in buffer-local variables so that
;; it can be reused.
(set-buffer (find-file-noselect lib))
(elint-update-env)
(setq env (elint-env-add-env env elint-buffer-env)))
;;; (with-temp-buffer
;;; (insert-file-contents lib)
;;; (with-syntax-table emacs-lisp-mode-syntax-table
;;; (elint-update-env))
;;; (setq env (elint-env-add-env env elint-buffer-env))))
;;(message "Elint processed (require '%s)" name))
(error "Unable to find require'd library %s" name)))
(error