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

Fixed a bug I introduced in RCS-CHECK-IN-FILE.

parent a63471af
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.8 1990/03/03 00:01:15 ch Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.9 1990/03/03 00:04:41 ch Exp $
;;; ;;;
;;; Various commands for dealing with RCS under hemlock. ;;; Various commands for dealing with RCS under hemlock.
;;; ;;;
...@@ -141,7 +141,7 @@ ...@@ -141,7 +141,7 @@
(editor-error "Someone deleted the RCS Log Entry buffer.")) (editor-error "Someone deleted the RCS Log Entry buffer."))
(change-to-buffer old-buffer) (change-to-buffer old-buffer)
(setf allow-delete t) (setf allow-delete t)
(delete-buffer-if-possible buffer)))) (delete-buffer-if-possible log-buffer))))
(defun sub-check-in-file (pathname keep-lock log-stream) (defun sub-check-in-file (pathname keep-lock log-stream)
(let* ((filename (file-namestring pathname)) (let* ((filename (file-namestring 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