(cvs-bury-buffer): Use quit-window instead of the

idiosyncratic bury-buffer/delete-window logic.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 278ae3677cb653db14ae75f603cad40781fa9779..09c00ee2c89bd8abf85ea0b5ea3c31280efc97bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-17  Sam Steingold  <sds@gnu.org>
+
+       * pcvs-util.el (cvs-bury-buffer): Use quit-window instead of the
+       idiosyncratic bury-buffer/delete-window logic.
+
 2008-04-17  Juanma Barranquero  <lekktu@gmail.com>
 
        * emacs-lisp/crm.el (crm-completion-help, crm-complete)

diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el
index 1cbe72796c267d442d32c4b15fbcc08be0d0daf4..21d668d134ff68095b748bd0f35b5af0fd27bd8e 100644 (file)
--- a/lisp/pcvs-util.el
+++ b/lisp/pcvs-util.el
@@ -102,20 +102,7 @@ BUF is assumed to be a temporary buffer used from the buffer MAINBUF."
     (let ((win (if (eq buf (window-buffer (selected-window))) (selected-window)
                 (get-buffer-window buf t))))
       (when win
-       (if (window-dedicated-p win)
-           (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)
-;;;          )
-         )))
-    (with-current-buffer buf
-      (bury-buffer (unless (and (eq buf (window-buffer (selected-window)))
-                               (not (window-dedicated-p (selected-window))))
-                    buf)))
+        (quit-window nil win)))
     (when mainbuf
       (let ((mainwin (or (get-buffer-window mainbuf)
                         (get-buffer-window mainbuf 'visible))))