diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp index f0fce1bf5b3c04247297a8788c9424b44776e3ba..18cbb07b67ec7634d4017729ef98a340de673c84 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.18 1991/11/07 21:54:24 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.19 1991/11/07 21:58:55 wlott Exp $ ;;; ;;; Various commands for dealing with RCS under Hemlock. ;;; @@ -325,7 +325,10 @@ (when (buffer-modified buffer) (save-file-command nil)) (rcs-check-in-file buffer pathname p) - (visit-file-command nil pathname buffer))) + (when (member buffer *buffer-list*) + ;; If the buffer has not been deleted, make sure it is up to date + ;; with respect to the file. + (visit-file-command nil pathname buffer)))) (defcommand "RCS Check In File" (p) "Prompt for a file, and attempt to check it in. With an argument, do