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