Skip to content
Snippets Groups Projects
Commit c954822c authored by ch's avatar ch
Browse files

Frobbed a few messages to be more descriptive.

parent 5cb2fd9d
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: HEMLOCK; Mode: Lisp -*- ;;; -*- Package: HEMLOCK; Mode: Lisp -*-
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.12 1990/03/03 00:49:54 ch Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.13 1990/03/03 01:03:55 ch Exp $
;;; ;;;
;;; Various commands for dealing with RCS under Hemlock. ;;; Various commands for dealing with RCS under Hemlock.
;;; ;;;
...@@ -131,7 +131,8 @@ ...@@ -131,7 +131,8 @@
(change-to-buffer log-buffer) (change-to-buffer log-buffer)
(do-recursive-edit) (do-recursive-edit)
(message "Checking in ~A ..." (namestring pathname)) (message "Checking in ~A~:[~; keeping the lock~] ..."
(namestring pathname) keep-lock)
(let ((log-stream (make-hemlock-region-stream (let ((log-stream (make-hemlock-region-stream
(buffer-region log-buffer)))) (buffer-region log-buffer))))
(sub-check-in-file pathname keep-lock log-stream)) (sub-check-in-file pathname keep-lock log-stream))
...@@ -227,7 +228,7 @@ ...@@ -227,7 +228,7 @@
check-out-count)) check-out-count))
(defun rcs-check-out-file (buffer pathname lock) (defun rcs-check-out-file (buffer pathname lock)
(message "Checking out ~A ..." (namestring pathname)) (message "Checking out ~A~:[~; with a lock~] ..." (namestring pathname) lock)
(in-directory pathname (in-directory pathname
(let ((backup (let ((backup
(if (probe-file pathname) (if (probe-file pathname)
......
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