Skip to content
Snippets Groups Projects
Commit 393969c4 authored by ram's avatar ram
Browse files

Changed rcsci and rcsco to ci and co, which now work at CS, and

also work in the rest of the world.
parent 500d3fd7
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: HEMLOCK; Mode: Lisp -*-
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.27 1992/12/06 15:52:19 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.28 1993/11/17 15:50:55 ram Exp $
;;;
;;; Various commands for dealing with RCS under Hemlock.
;;;
......@@ -165,7 +165,7 @@
'rcs-keep-around-after-unlocking
:buffer buffer))))
(in-directory pathname
(do-command "rcsci" `(,@(if keep-lock '("-l"))
(do-command "ci" `(,@(if keep-lock '("-l"))
,@(if keep-working-copy '("-u"))
,filename)
:input log-stream)
......@@ -245,7 +245,7 @@
(backup (if (probe-file file)
(lisp::pick-backup-name file))))
(when backup (rename-file file backup))
(do-command "rcsco" `(,@(if lock '("-l")) ,file))
(do-command "co" `(,@(if lock '("-l")) ,file))
(invoke-hook rcs-check-out-file-hook buffer pathname)
(when backup (delete-file backup)))))
......@@ -285,7 +285,7 @@
(unwind-protect
(progn
(in-directory file
(do-command "rcsco" `("-p" ,(file-namestring file))
(do-command "co" `("-p" ,(file-namestring file))
:output (namestring name)))
(when (buffer-different-from-file buffer name)
(message
......
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