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