In with-temp-buffer-window don't evaluate BODY within with-current-buffer (Bug#16816).

* window.el (with-temp-buffer-window): Don't evaluate BODY within
with-current-buffer (Bug#16816).

lisp/ChangeLog

@@ -15,6 +15,9 @@
 	(adjust-window-trailing-edge): Call window--resizable with
 	correct TRAIL argument.
 
+	(with-temp-buffer-window): Don't evaluate BODY within
+	with-current-buffer (Bug#16816).
+
 2014-02-21  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-check-cached-permissions):

lisp/window.el

@@ -189,8 +189,8 @@ argument replaces this)."
     `(let* ((,buffer (temp-buffer-window-setup ,buffer-or-name))
 	    (standard-output ,buffer)
 	    ,window ,value)
+       (setq ,value (progn ,@body))
        (with-current-buffer ,buffer
-	 (setq ,value (progn ,@body))
 	 (setq ,window (temp-buffer-window-show ,buffer ,action)))
 
        (if (functionp ,quit-function)