diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-03-07 00:19:08 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-03-07 00:19:08 +0000 |
| commit | 84dd85f54a694e250f8368adafca8e5b10b703c5 (patch) | |
| tree | 125042e53dd75b870f028393c2e5b82c5b313792 /lisp/pcvs-util.el | |
| parent | 619d6bfce89db498d34482ca360e5172a16d7a8a (diff) | |
| download | emacs-84dd85f54a694e250f8368adafca8e5b10b703c5.tar.gz | |
(cvs-bury-buffer): In doubt, don't delete window.
Diffstat (limited to 'lisp/pcvs-util.el')
| -rw-r--r-- | lisp/pcvs-util.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el index fce4ccab769..89506ecd7c8 100644 --- a/lisp/pcvs-util.el +++ b/lisp/pcvs-util.el @@ -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 @@ BUF is assumed to be a temporary buffer used from the buffer MAINBUF." (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)))) |