Mercurial > emacs
comparison lisp/emacs-lisp/elint.el @ 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 | bbe883d49650 |
| children | 1ca02a761eac |
comparison
equal
deleted
inserted
replaced
| 105007:77633f71fa50 | 105008:b9b9c3b2718d |
|---|---|
| 350 (lib (or lib1 (locate-library libname t)))) | 350 (lib (or lib1 (locate-library libname t)))) |
| 351 ;; Clear the messages :-/ | 351 ;; Clear the messages :-/ |
| 352 (message nil) | 352 (message nil) |
| 353 (if lib | 353 (if lib |
| 354 (save-excursion | 354 (save-excursion |
| 355 ;;; (set-buffer (find-file-noselect lib)) | 355 ;; FIXME this doesn't use a temp buffer, because it |
| 356 ;;; (elint-update-env) | 356 ;; stores the result in buffer-local variables so that |
| 357 ;;; (setq env (elint-env-add-env env elint-buffer-env))) | 357 ;; it can be reused. |
| 358 (with-temp-buffer | 358 (set-buffer (find-file-noselect lib)) |
| 359 (insert-file-contents lib) | 359 (elint-update-env) |
| 360 (with-syntax-table emacs-lisp-mode-syntax-table | 360 (setq env (elint-env-add-env env elint-buffer-env))) |
| 361 (elint-update-env)) | 361 ;;; (with-temp-buffer |
| 362 (setq env (elint-env-add-env env elint-buffer-env)))) | 362 ;;; (insert-file-contents lib) |
| 363 ;;; (with-syntax-table emacs-lisp-mode-syntax-table | |
| 364 ;;; (elint-update-env)) | |
| 365 ;;; (setq env (elint-env-add-env env elint-buffer-env)))) | |
| 363 ;;(message "Elint processed (require '%s)" name)) | 366 ;;(message "Elint processed (require '%s)" name)) |
| 364 (error "Unable to find require'd library %s" name))) | 367 (error "Unable to find require'd library %s" name))) |
| 365 (error | 368 (error |
| 366 (message "Can't get variables from require'd library %s" name))) | 369 (message "Can't get variables from require'd library %s" name))) |
| 367 env) | 370 env) |