diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-14 00:48:06 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-14 00:48:06 +0000 |
| commit | d62e5bf28f90f609646a57bf43c566626faaafa1 (patch) | |
| tree | 981abdb46bfb9bcb79a4bfcf8670f7a42f69a420 /lisp/emacs-lisp | |
| parent | 7d0105e5735949bc5810732f0f707ae31bbe13db (diff) | |
| download | emacs-d62e5bf28f90f609646a57bf43c566626faaafa1.tar.gz emacs-d62e5bf28f90f609646a57bf43c566626faaafa1.tar.bz2 emacs-d62e5bf28f90f609646a57bf43c566626faaafa1.zip | |
(elint-add-required-env): Revert to not using temp-buffers (2009-09-12).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/elint.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index d2e950ae908..e90b72f65ff 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -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 |