# HG changeset patch # User Glenn Morris # Date 1252889286 0 # Node ID b9b9c3b2718d8a8181ba21706c53f08790cd0f8c # Parent 77633f71fa501e8433c2be01aca7707ba32b035d (elint-add-required-env): Revert to not using temp-buffers (2009-09-12). diff -r 77633f71fa50 -r b9b9c3b2718d lisp/ChangeLog --- 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 + + * emacs-lisp/elint.el (elint-add-required-env): Revert to not using + temp-buffers (2009-09-12). + 2009-09-13 Stefan Monnier * textmodes/ispell.el (ispell-command-loop): Improve last fix, using diff -r 77633f71fa50 -r b9b9c3b2718d lisp/emacs-lisp/elint.el --- 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