comparison lisp/vc.el @ 22715:c015f24cda4c

(vc-finish-logentry): Only delete windows in the selected frame displaying the *VC-log* buffer, in case another frame is dedicated to it (which will then be deleted via kill-buffer).

22714:e632673d8975

;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.

;; Author:     Eric S. Raymond <[e-mail]>
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc.el,v 1.232 1998/06/16 16:38:47 rms Exp eliz $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

	       log-entry))
    ;; Remove checkin window (after the checkin so that if that fails
    ;; we don't zap the *VC-log* buffer and the typing therein).
    (let ((logbuf (get-buffer "*VC-log*")))
      (cond (logbuf
             (delete-windows-on logbuf)
             (kill-buffer logbuf))))
    ;; Now make sure we see the expanded headers
    (if buffer-file-name
	(vc-resynch-window buffer-file-name vc-keep-workfiles t))
    (if vc-dired-mode 

22715:c015f24cda4c

;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.

;; Author:     Eric S. Raymond <[e-mail]>
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc.el,v 1.233 1998/06/21 14:29:07 eliz Exp rms $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

	       log-entry))
    ;; Remove checkin window (after the checkin so that if that fails
    ;; we don't zap the *VC-log* buffer and the typing therein).
    (let ((logbuf (get-buffer "*VC-log*")))
      (cond (logbuf
             (delete-windows-on logbuf (selected-frame))
             (kill-buffer logbuf))))
    ;; Now make sure we see the expanded headers
    (if buffer-file-name
	(vc-resynch-window buffer-file-name vc-keep-workfiles t))
    (if vc-dired-mode