diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp index fd74a539d78badb9851d0d24685edfb0907905a6..1381542bedc2e577ab5caed2ba71d688d1697b9b 100644 --- a/hemlock/rcs.lisp +++ b/hemlock/rcs.lisp @@ -1,6 +1,6 @@ ;;; -*- Package: HEMLOCK -*- ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.3 1990/02/09 19:10:08 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.4 1990/02/09 21:08:09 wlott Exp $ ;;; ;;; Various commands for dealing with RCS under hemlock. ;;; @@ -108,6 +108,7 @@ (message "Checking in ~A ..." (namestring pathname)) (in-directory pathname (do-command "rcsci" `(,@(if keep-lock '("-l")) + "-u" ,(file-namestring pathname)) :input (make-hemlock-region-stream (buffer-region buffer))))