From 2ecace28ac74af3bd2b27571e767d340adabf8f2 Mon Sep 17 00:00:00 2001
From: Makarius Wenzel
Date: Tue, 24 Aug 1999 16:13:15 +0000
Subject: isar-response-mode;

---
 isar/isar.el | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/isar/isar.el b/isar/isar.el
index 110f47bb..8fd62d83 100644
--- a/isar/isar.el
+++ b/isar/isar.el
@@ -286,6 +286,11 @@ proof-shell-retract-files-regexp."
    "Isabelle/Isar shell" nil
    (isar-shell-mode-config)))
 
+(eval-and-compile
+(define-derived-mode isar-response-mode proof-response-mode
+  "Isabelle/Isar response" nil
+  (isar-response-mode-config)))
+
 (eval-and-compile			; to define vars for byte comp.
 (define-derived-mode isar-pbp-mode pbp-mode
   "Isabelle/Isar proofstate" nil
@@ -462,7 +467,8 @@ proof-shell-retract-files-regexp."
 (defun isar-pre-shell-start ()
   (setq proof-prog-name		isabelle-isar-prog-name)
   (setq proof-mode-for-shell    'isar-shell-mode)
-  (setq proof-mode-for-pbp	'isar-pbp-mode))
+  (setq proof-mode-for-pbp	'isar-pbp-mode)
+  (setq proof-mode-for-response 'isar-response-mode))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -499,16 +505,25 @@ proof-shell-retract-files-regexp."
 
 (defun isar-shell-mode-config ()
   "Configure Proof General proof shell for Isabelle/Isar."
-  (isar-init-syntax-table)
+  (isar-init-output-syntax-table)
+  (setq font-lock-keywords isar-output-font-lock-terms)
   (isar-shell-mode-config-set-variables)
   (proof-shell-config-done)
   (isar-outline-setup))
 
-;; FIXME: broken, of course, as is all PBP everywhere.
+(defun isar-response-mode-config ()
+  (setq font-lock-keywords isar-output-font-lock-terms)
+  (isar-init-output-syntax-table)
+  (isar-outline-setup)
+  (proof-response-config-done))
+
 (defun isar-pbp-mode-config ()
+  ;; FIXME: next two broken, of course, as is all PBP everywhere.
   (setq pbp-change-goal "Show %s.")
   (setq pbp-error-regexp proof-shell-error-regexp)
-  (isar-outline-setup))
-
+  (isar-init-output-syntax-table)
+  (setq font-lock-keywords isar-output-font-lock-terms)
+  (isar-outline-setup)
+  (proof-goals-config-done))
 
 (provide 'isar)
-- 
cgit v1.2.3