# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 983924348 0
# Node ID dfaaee4447ffb2c0bcdf3809b564a41413c03d70
# Parent  6fd7e79e9d1fcff548507c705eb61cb2666c154e
(cvs-bury-buffer): In doubt, don't delete window.

diff -r 6fd7e79e9d1f -r dfaaee4447ff lisp/pcvs-util.el
--- a/lisp/pcvs-util.el	Wed Mar 07 00:18:27 2001 +0000
+++ b/lisp/pcvs-util.el	Wed Mar 07 00:19:08 2001 +0000
@@ -5,7 +5,7 @@
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs
-;; Revision: $Id: pcvs-util.el,v 1.8 2000/12/18 03:17:31 monnier Exp $
+;; Revision: $Id: pcvs-util.el,v 1.9 2001/01/09 13:12:04 gerd Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -123,7 +123,10 @@
 		(delete-window win)
 	      (error (iconify-frame (window-frame win))))
 	  (if (and mainbuf (get-buffer-window mainbuf))
-	      (delete-window win)))))
+	      ;; FIXME: if the buffer popped into a pre-existing window,
+	      ;; we don't want to delete that window.
+	      ;;(delete-window win)
+	      ))))
     (with-current-buffer buf
       (bury-buffer (unless (and (eq buf (window-buffer (selected-window)))
 				(not (window-dedicated-p (selected-window))))