Mercurial > emacs

comparison lisp/vc.el @ 22721:d023df160219

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comment change.
author Richard M. Stallman <rms@gnu.org>
date Thu, 09 Jul 1998 03:47:06 +0000
parents c015f24cda4c
children 9cbc361c1a50
comparison
equal deleted inserted replaced
22720:ab4f30149aa0 22721:d023df160219
3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.
4 4
5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 5 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de> 6 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
7 7
8 ;; $Id: vc.el,v 1.233 1998/06/21 14:29:07 eliz Exp rms $ 8 ;; $Id: vc.el,v 1.234 1998/07/08 02:55:50 rms Exp rms $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
1239 ;; Remove checkin window (after the checkin so that if that fails 1239 ;; Remove checkin window (after the checkin so that if that fails
1240 ;; we don't zap the *VC-log* buffer and the typing therein). 1240 ;; we don't zap the *VC-log* buffer and the typing therein).
1241 (let ((logbuf (get-buffer "*VC-log*"))) 1241 (let ((logbuf (get-buffer "*VC-log*")))
1242 (cond (logbuf 1242 (cond (logbuf
1243 (delete-windows-on logbuf (selected-frame)) 1243 (delete-windows-on logbuf (selected-frame))
1244 ;; Kill buffer and delete any other dedicated windows/frames.
1244 (kill-buffer logbuf)))) 1245 (kill-buffer logbuf))))
1245 ;; Now make sure we see the expanded headers 1246 ;; Now make sure we see the expanded headers
1246 (if buffer-file-name 1247 (if buffer-file-name
1247 (vc-resynch-window buffer-file-name vc-keep-workfiles t)) 1248 (vc-resynch-window buffer-file-name vc-keep-workfiles t))
1248 (if vc-dired-mode 1249 (if vc-dired-mode