From e515c6c28b6b9f4c5f403bcccdfb7cb678fdc4ea Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 7 Nov 1991 21:58:55 +0000 Subject: [PATCH] Another fix to the check in stuff. [Yes, I'm testing it by checking this file in...] If we delete the buffer don't try to re-visit the file, 'cause it will be gone. --- hemlock/rcs.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/hemlock/rcs.lisp b/hemlock/rcs.lisp index f0fce1bf5..18cbb07b6 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 -- GitLab