Mercurial > hg > xemacs-beta
diff lisp/vm/vm-window.el @ 175:2d532a89d707 r20-3b14
Import from CVS: tag r20-3b14
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:50:14 +0200 (2007-08-13) |
parents | 43dd3413c7c7 |
children |
line wrap: on
line diff
--- a/lisp/vm/vm-window.el Mon Aug 13 09:49:11 2007 +0200 +++ b/lisp/vm/vm-window.el Mon Aug 13 09:50:14 2007 +0200 @@ -104,9 +104,11 @@ (defun vm-undisplay-buffer (buffer) (vm-save-buffer-excursion - (vm-maybe-delete-windows-or-frames-on buffer) - (let ((w (vm-get-buffer-window buffer))) - (and w (set-window-buffer w (other-buffer)))))) + (let ((vm-mutable-frames (and vm-mutable-frames pop-up-frames))) + (vm-maybe-delete-windows-or-frames-on buffer)) + (let (w) + (while (setq w (vm-get-buffer-window buffer)) + (set-window-buffer w (other-buffer buffer)))))) (defun vm-load-window-configurations (file) (save-excursion @@ -200,7 +202,8 @@ ;; the user not to lose here. (vm-replace-buffer-in-windows nonexistent-summary message) (and (get-buffer nonexistent-summary) - (vm-maybe-delete-windows-or-frames-on nonexistent-summary))) ))) + (vm-maybe-delete-windows-or-frames-on nonexistent-summary))) + config ))) (defun vm-save-window-configuration (tag) "Name and save the current window configuration.