# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1097940911 0
# Node ID c39903008a0d1173d974aca8e4d92a77f509a55e
# Parent  21785c1908538ca9a4c1a60dba9d6f53f780ef99
(cvs-bury-buffer): Don't call get-buffer-window for effect.

diff -r 21785c190853 -r c39903008a0d lisp/pcvs-util.el
--- a/lisp/pcvs-util.el	Sat Oct 16 15:33:59 2004 +0000
+++ b/lisp/pcvs-util.el	Sat Oct 16 15:35:11 2004 +0000
@@ -104,11 +104,12 @@
 	    (condition-case ()
 		(delete-window win)
 	      (error (iconify-frame (window-frame win))))
-	  (if (and mainbuf (get-buffer-window mainbuf))
-	      ;; FIXME: if the buffer popped into a pre-existing window,
-	      ;; we don't want to delete that window.
-	      t ;;(delete-window win)
-	      ))))
+;;; 	  (if (and mainbuf (get-buffer-window mainbuf))
+;;; 	      ;; FIXME: if the buffer popped into a pre-existing window,
+;;; 	      ;; we don't want to delete that window.
+;;; 	      t ;;(delete-window win)
+;;; 	      )
+	  )))
     (with-current-buffer buf
       (bury-buffer (unless (and (eq buf (window-buffer (selected-window)))
 				(not (window-dedicated-p (selected-window))))