[Emacs-diffs] trunk r116509: In with-temp-buffer-window don't evaluate BODY within with-current-buffer (Bug#16816).

[Martin Rudalics]

------------------------------------------------------------
revno: 116509
revision-id: address@hidden
parent: address@hidden
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Fri 2014-02-21 12:04:27 +0100
message:
  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).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/window.el                 window.el-20091113204419-o5vbwnq5f7feedwu-94

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-21 08:02:05 +0000
+++ b/lisp/ChangeLog    2014-02-21 11:04:27 +0000
@@ -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  <address@hidden>
 
        * net/tramp.el (tramp-check-cached-permissions):

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2014-02-21 08:02:05 +0000
+++ b/lisp/window.el    2014-02-21 11:04:27 +0000
@@ -189,8 +189,8 @@
     `(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)