[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116509: In with-temp-buffer-window don't evaluate B
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] trunk r116509: In with-temp-buffer-window don't evaluate BODY within with-current-buffer (Bug#16816). |
Date: |
Fri, 21 Feb 2014 11:04:37 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116509: In with-temp-buffer-window don't evaluate BODY within with-current-buffer (Bug#16816).,
Martin Rudalics <=