aboutsummaryrefslogtreecommitdiff
path: root/generic/proof-shell.el
diff options
context:
space:
mode:
authorDavid Aspinall1998-10-27 12:17:40 +0000
committerDavid Aspinall1998-10-27 12:17:40 +0000
commit0a42eb29804f7e384a6f1c406b8811c8a50a4692 (patch)
treec4c6e0dc6ef21e5b5d181bfd3d8733824fb34b01 /generic/proof-shell.el
parent2dad869969276edbe077c7576959a37692e0c12c (diff)
Begun work on clean byte compilation / clarifying interfaces.
Diffstat (limited to 'generic/proof-shell.el')
-rw-r--r--generic/proof-shell.el21
1 files changed, 10 insertions, 11 deletions
diff --git a/generic/proof-shell.el b/generic/proof-shell.el
index 24bb5bef..2fb74034 100644
--- a/generic/proof-shell.el
+++ b/generic/proof-shell.el
@@ -9,7 +9,7 @@
;; $Id$
;;
-(require 'proof-config)
+(require 'proof)
;; Internal variables used by shell mode
;;
@@ -22,6 +22,11 @@ Set in proof-shell-mode.")
"Regexp matching terminator, comment start, or comment end.
Set in proof-shell-mode.")
+(defvar proof-marker nil
+ "Marker in proof shell buffer pointing to previous command input.")
+
+
+
@@ -35,11 +40,6 @@ Set in proof-shell-mode.")
;;
;;
-(defvar proof-shell-busy nil
- "A lock indicating that the proof shell is processing.
-When this is non-nil, proof-shell-ready-prover will give
-an error.")
-
;;
;; History of these horrible functions.
;;
@@ -351,9 +351,6 @@ The default value is \"\n\" to match up to the end of the line.")
(defvar proof-shell-delayed-output nil
"Last interesting output from proof process output and what to do with it.")
-(defvar proof-shell-proof-completed nil
- "Flag indicating that a completed proof has just been observed.")
-
(defvar proof-analyse-using-stack nil
"Are annotations sent by proof assistant local or global")
@@ -933,9 +930,11 @@ how far we've got."
;; Proof General shell mode definition ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; This has to come after proof-mode is defined
+;; OLD COMMENT: "This has to come after proof-mode is defined"
+
+;;###autoload
(define-derived-mode proof-shell-mode comint-mode
- "proof-shell" "Proof shell mode - not standalone"
+ "proof-shell" "Proof General shell mode class for proof assistant processes"
(setq proof-buffer-type 'shell)
(setq proof-shell-busy nil)
(setq proof-shell-delayed-output (cons 'insert "done"))