Mercurial > emacs
changeset 105008:b9b9c3b2718d
(elint-add-required-env): Revert to not using temp-buffers (2009-09-12).
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 14 Sep 2009 00:48:06 +0000 |
| parents | 77633f71fa50 |
| children | b520d55cdd72 |
| files | lisp/ChangeLog lisp/emacs-lisp/elint.el |
| diffstat | 2 files changed, 16 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Sep 13 22:28:57 2009 +0000 +++ b/lisp/ChangeLog Mon Sep 14 00:48:06 2009 +0000 @@ -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
--- a/lisp/emacs-lisp/elint.el Sun Sep 13 22:28:57 2009 +0000 +++ b/lisp/emacs-lisp/elint.el Mon Sep 14 00:48:06 2009 +0000 @@ -352,14 +352,17 @@ (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