Re: Obtaining a Lisp form from a file

[John Mastro <john.b.mastro@gmail.com>]

Udyant Wig <udyant.wig@gmail.com> wrote:
> Is there a better way to write this?
>
> (let ((foo-buffer (get-buffer-create "*foo*"))
>       foo-form)
>   (with-current-buffer foo-buffer
>     (insert-file-contents foo-file))
>   (setq foo-form (read foo-buffer))
>   (kill-buffer foo-buffer)
>   foo-form)

(with-temp-buffer
  (insert-file-contents file)
  (read (current-buffer)))

Hope that helps

        John