diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp index 4c2ce1208ab12efa187e931212f28c7301ccf877..43eb8b67555495beb16a0557a82debf3e2bb2e66 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))