From 393969c4057880ed70e44cab617d2749e805b5ed Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 17 Nov 1993 15:50:55 +0000 Subject: [PATCH] Changed rcsci and rcsco to ci and co, which now work at CS, and also work in the rest of the world. --- hemlock/rcs.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp index 5a428634f..fd657d2c7 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.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 -- GitLab