Skip to content
Snippets Groups Projects
Commit 58114f59 authored by wlott's avatar wlott
Browse files

Another fix. If the buffer gets nuked, don't pass it to change-to-buffer.

parent e515c6c2
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: HEMLOCK; Mode: Lisp -*-
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.19 1991/11/07 21:58:55 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.20 1991/11/07 22:02:31 wlott Exp $
;;;
;;; Various commands for dealing with RCS under Hemlock.
;;;
......@@ -148,7 +148,8 @@
(invoke-hook rcs-check-in-file-hook buffer pathname)
nil)
(editor-error "Someone deleted the RCS Log Entry buffer."))
(change-to-buffer old-buffer)
(when (member old-buffer *buffer-list*)
(change-to-buffer old-buffer))
(setf allow-delete t)
(delete-buffer-if-possible log-buffer))))
......
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