Skip to content
Snippets Groups Projects
Commit adf0f232 authored by wlott's avatar wlott
Browse files

Added -u switch to rcs-check-in-file. Shouldn't have taken -U all the way

out...
parent ff60050d
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: HEMLOCK -*- ;;; -*- 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. ;;; Various commands for dealing with RCS under hemlock.
;;; ;;;
...@@ -108,6 +108,7 @@ ...@@ -108,6 +108,7 @@
(message "Checking in ~A ..." (namestring pathname)) (message "Checking in ~A ..." (namestring pathname))
(in-directory pathname (in-directory pathname
(do-command "rcsci" `(,@(if keep-lock '("-l")) (do-command "rcsci" `(,@(if keep-lock '("-l"))
"-u"
,(file-namestring pathname)) ,(file-namestring pathname))
:input (make-hemlock-region-stream :input (make-hemlock-region-stream
(buffer-region buffer)))) (buffer-region buffer))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment