diff options
| -rw-r--r-- | lisp/vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index cda0544dc4a..f54a7b325de 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -5,7 +5,7 @@ | |||
| 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.232 1998/06/16 16:38:47 rms Exp eliz $ | 8 | ;; $Id: vc.el,v 1.233 1998/06/21 14:29:07 eliz Exp rms $ |
| 9 | 9 | ||
| 10 | ;; This file is part of GNU Emacs. | 10 | ;; This file is part of GNU Emacs. |
| 11 | 11 | ||
| @@ -1240,7 +1240,7 @@ May be useful as a `vc-checkin-hook' to update change logs automatically." | |||
| 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) | 1243 | (delete-windows-on logbuf (selected-frame)) |
| 1244 | (kill-buffer logbuf)))) | 1244 | (kill-buffer logbuf)))) |
| 1245 | ;; Now make sure we see the expanded headers | 1245 | ;; Now make sure we see the expanded headers |
| 1246 | (if buffer-file-name | 1246 | (if buffer-file-name |