From 92b48831affac493df240d0396440f0ec8c7e617 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Fri, 16 Aug 2002 17:34:05 +0000
Subject: Print Proof

---
 coq/coq.el | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/coq/coq.el b/coq/coq.el
index e41a1154..d6eb861e 100644
--- a/coq/coq.el
+++ b/coq/coq.el
@@ -588,7 +588,10 @@ This is specific to coq-mode."
    (proof-regexp-alt (proof-ids-to-regexp '("Cases")) "\\s(")
    proof-indent-close-regexp
    (proof-regexp-alt (proof-ids-to-regexp '("end")) "\\s)"))
-  
+
+  ;; span menu 
+  (setq
+   proof-script-span-context-menu-extensions 'coq-create-span-menu)
 
   ;; (setq proof-auto-multiple-files t)	; until Coq has real support
   ;; da: Experimental support for multiple files based on discussions
@@ -792,6 +795,38 @@ This is specific to coq-mode."
 
 (provide 'coq)
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Subterm markup -- it was added to Coq by Healf, but got removed.
+;;                   Let's try faking something by regexp matching.
+
+;; FIXME: not operational yet
+(defun coq-fake-constant-markup ()
+  "Markup constants in Coq goal output by matching on regexps.
+This is a horrible and approximate way of doing subterm markup.
+(Code used to be in Coq, but got lost between versions 5 and 7).
+This is a hook setting for `pg-after-fontify-output-hook' to
+enable identifiers to be highlighted and allow useful 
+mouse activation."
+  (goto-char (point-min))
+  (while (re-search-forward "\(\w+[^\w]\)" nil t)
+    (replace-match "\372\200\373\\1\374" nil t)))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; Context-senstive in-span menu additions 
+;;
+
+(defun coq-create-span-menu (span idiom name)
+  (if (string-equal idiom "proof")
+      (let ((thm (span-property span 'name)))
+        (list (vector
+               "Print Proof"
+               `(proof-shell-invisible-command 
+                 ,(format "Print Proof %s." thm)))))))
+
+
 
 ;;;   Local Variables: ***
 ;;;   tab-width:2 ***
-- 
cgit v1.2.3