diff options
| author | David Aspinall | 1998-10-27 12:17:40 +0000 |
|---|---|---|
| committer | David Aspinall | 1998-10-27 12:17:40 +0000 |
| commit | 0a42eb29804f7e384a6f1c406b8811c8a50a4692 (patch) | |
| tree | c4c6e0dc6ef21e5b5d181bfd3d8733824fb34b01 /generic/proof-shell.el | |
| parent | 2dad869969276edbe077c7576959a37692e0c12c (diff) | |
Begun work on clean byte compilation / clarifying interfaces.
Diffstat (limited to 'generic/proof-shell.el')
| -rw-r--r-- | generic/proof-shell.el | 21 |
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")) |
