From 5b3f191a9b989bd68bee27ce84aeeeb9fa1060fd Mon Sep 17 00:00:00 2001
From: Hendrik Tews
Date: Mon, 14 Mar 2011 09:29:48 +0000
Subject: - change to proof-restart-buffers for unlocking ancestors - improve
 internal docs for unlocking

---
 generic/proof-shell.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'generic/proof-shell.el')

diff --git a/generic/proof-shell.el b/generic/proof-shell.el
index c70c4eaa..be127b8a 100644
--- a/generic/proof-shell.el
+++ b/generic/proof-shell.el
@@ -1151,7 +1151,12 @@ A subroutine of `proof-shell-process-urgent-message'."
       (proof-interrupt-process)))
 
 (defun proof-shell-process-urgent-message-retract (start end)
-  "A subroutine of `proof-shell-process-urgent-message'."
+  "A subroutine of `proof-shell-process-urgent-message'.
+Takes files off `proof-included-files-list' and calls
+`proof-restart-buffers' to do the necessary clean-up on those
+buffers visting a file that disappears from
+`proof-included-files-list'. So in some respect this function is
+inverse to `proof-register-possibly-new-processed-file'."
   (let ((current-included proof-included-files-list))
     (setq proof-included-files-list
 	  (funcall proof-shell-compute-new-files-list))
-- 
cgit v1.2.3