From efe1d74d5dd889096b3b8d84a682d4e3db7e495c Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Sat, 3 Mar 1990 00:04:41 +0000
Subject: [PATCH] Fixed a bug I introduced in RCS-CHECK-IN-FILE.

---
 hemlock/rcs.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp
index 4c2ce1208..43eb8b675 100644
--- a/hemlock/rcs.lisp
+++ b/hemlock/rcs.lisp
@@ -1,6 +1,6 @@
 ;;; -*- Package: HEMLOCK; Mode: Lisp -*-
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.8 1990/03/03 00:01:15 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.9 1990/03/03 00:04:41 ch Exp $
 ;;;
 ;;; Various commands for dealing with RCS under hemlock.
 ;;; 
@@ -141,7 +141,7 @@
 	  (editor-error "Someone deleted the RCS Log Entry buffer."))
       (change-to-buffer old-buffer)
       (setf allow-delete t)
-      (delete-buffer-if-possible buffer))))
+      (delete-buffer-if-possible log-buffer))))
 
 (defun sub-check-in-file (pathname keep-lock log-stream)
   (let* ((filename (file-namestring pathname))
-- 
GitLab