From f460f228282925525072e0d5d10fcce95ff5a80f Mon Sep 17 00:00:00 2001
From: Thomas Kleymann
Date: Tue, 25 Aug 1998 13:20:54 +0000
Subject: Added further documentation.

---
 proof.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/proof.el b/proof.el
index 46d338ea..fbe68fde 100644
--- a/proof.el
+++ b/proof.el
@@ -361,11 +361,10 @@
 (defsubst proof-end-of-queue ()
   (and proof-queue-span (span-end proof-queue-span)))
 
-;;; This sets the display values of the annotations used to
-;;; communicate with the proof assistant so that they don't show up on
-;;; the screen.
-
 (defun proof-dont-show-annotations ()
+  "This sets the display values of the annotations used to
+   communicate with the proof assistant so that they don't show up on
+   the screen."
   (let ((disp (make-display-table))
 	(i 128))
 	(while (< i 256)
@@ -1014,6 +1013,11 @@ arrive."
 	    (re-search-forward proof-shell-annotated-prompt-regexp)
 	    ;; FIXME: da: why is this next line here?  to delete the 
 	    ;;        possibly several character prompt? why?
+	    ;;        TMS: Its purpose is to remove the wakeup
+	    ;;        character associated with the prompt. This
+	    ;;        should not be necessary anymore, because the wakeup
+	    ;;        character isn't displayed anyway; see
+	    ;;        `proof-dont-show-annotations'. Watch this space!
 	    (backward-delete-char 1)
 	    (set-marker proof-marker (point)))
 	;; We've matched against a second prompt in str now.  Search
-- 
cgit v1.2.3