[Emacs-diffs] /srv/bzr/emacs/trunk r105874: In special-display-popup-frame reset new frame's previous buffers to nil.

[martin rudalics]

------------------------------------------------------------
revno: 105874
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Thu 2011-09-22 11:28:57 +0200
message:
  In special-display-popup-frame reset new frame's previous buffers to nil.
  
  * window.el (special-display-popup-frame): When popping up a new frame
  reset its previous buffers to nil.  Simplify code.
modified:
  lisp/ChangeLog
  lisp/window.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-22 07:24:08 +0000
+++ b/lisp/ChangeLog    2011-09-22 09:28:57 +0000
@@ -14,6 +14,8 @@
        * window.el (quit-window): Undedicate window when switching to
        previous buffer.  Reported by Thierry Volpiatto
        <address@hidden>.
+       (special-display-popup-frame): When popping up a new frame reset
+       its previous buffers to nil.  Simplify code.
 
 2011-09-21  Michael Albinus  <address@hidden>
 

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2011-09-22 06:56:19 +0000
+++ b/lisp/window.el    2011-09-22 09:28:57 +0000
@@ -4104,14 +4104,16 @@
                special-display-buffer-names special-display-regexps)
           (display-buffer buffer)))
        ;; If no window yet, make one in a new frame.
-       (let ((frame
-             (with-current-buffer buffer
-               (make-frame (append args special-display-frame-alist)))))
-        (display-buffer-record-window
-         'frame (frame-selected-window frame) buffer)
-        (set-window-buffer (frame-selected-window frame) buffer)
-        (set-window-dedicated-p (frame-selected-window frame) t)
-        (frame-selected-window frame))))))
+       (let* ((frame
+              (with-current-buffer buffer
+                (make-frame (append args special-display-frame-alist))))
+             (window (frame-selected-window frame)))
+        (display-buffer-record-window 'frame window buffer)
+        (set-window-buffer window buffer)
+        ;; Reset list of WINDOW's previous buffers to nil.
+        (set-window-prev-buffers window nil)
+        (set-window-dedicated-p window t)
+        window)))))
 
 (defcustom special-display-function 'special-display-popup-frame
   "Function to call for displaying special buffers.