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

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

View file

@ -1,3 +1,8 @@
2009-09-14 Glenn Morris <rgm@gnu.org>
* emacs-lisp/elint.el (elint-add-required-env): Revert to not using
temp-buffers (2009-09-12).
2009-09-13 Stefan Monnier <monnier@iro.umontreal.ca>
* textmodes/ispell.el (ispell-command-loop): Improve last fix, using

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