From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Apr 2000 20:59:48 +0000 (+0000)
Subject: Don't offer to save the VC log buffer.
X-Git-Tag: 20090517-FFI~4072
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1d7d87b05cf02a239185f955f42af98031ade709;p=mit-scheme.git

Don't offer to save the VC log buffer.
---

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index d021dc8ab..98bf9b3af 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.67 2000/04/07 20:16:33 cph Exp $
+;;; $Id: vc.scm,v 1.68 2000/04/07 20:59:48 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -1060,7 +1060,8 @@ There is a special command, `*l', to mark all files currently locked.
       (comint-record-input vc-comment-ring comment)
       ;; Save any changes the user might have made while editing the
       ;; comment.
-      (if (and (buffer-alive? parent-buffer)
+      (if (and (not (eq? parent-buffer log-buffer))
+	       (buffer-alive? parent-buffer)
 	       (not (vc-dired-buffer? parent-buffer)))
 	  (vc-save-buffer parent-buffer #t))
       ;; If a new window was created to hold the log buffer, and the log