I would also like to have a solution to this.

For now, I arrange my let bindings as follows:

--8<---------------cut here---------------start------------->8---
(let ((temp-buffer (generate-new-buffer "temp"))
      from to)
  body
  body)
--8<---------------cut here---------------end--------------->8---

--
Kaushal Modi