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 -*-
;;;
;;; $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))))
......
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