diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 1998-10-27 15:18:28 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 1998-10-27 15:18:28 +0000 |
| commit | fc9af819f6faa4214c376f74a14e4db45178c921 (patch) | |
| tree | 6505dc2075ca4fa4cdbab9ed2d2f0e5bff502efb /generic | |
| parent | 787e3d0cccf840d87111a5626deaeb8c07156a9d (diff) | |
Moved pbp-goal-command and pbp-hyp-command to proof-config.Moved LEGO specifix.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/proof-config.el | 12 | ||||
| -rw-r--r-- | generic/proof-script.el | 4 | ||||
| -rw-r--r-- | generic/proof-shell.el | 8 |
3 files changed, 12 insertions, 12 deletions
diff --git a/generic/proof-config.el b/generic/proof-config.el index bec16319..83b850bf 100644 --- a/generic/proof-config.el +++ b/generic/proof-config.el @@ -527,6 +527,18 @@ mere warning messages with this regexp)." :type 'regexp :group 'proof-shell) +(defcustom pbp-goal-command nil + "Command informing the prover that `pbp-button-action' has been + requested on a goal." + :type 'regexp + :group 'proof-shell) + +(defvar pbp-hyp-command nil + "Command informing the prover that `pbp-button-action' has been + requested on an assumption." + :type 'regexp + :group 'proof-shell) + (defcustom proof-shell-result-start "" "Regexp matching start of an output from the prover after pbp commands. In particular, after a `pbp-goal-command' or a `pbp-hyp-command'." diff --git a/generic/proof-script.el b/generic/proof-script.el index 4447f368..b423aed9 100644 --- a/generic/proof-script.el +++ b/generic/proof-script.el @@ -1428,10 +1428,6 @@ finish setup which depends on specific proof assistant configuration." ;; calculate some strings and regexps for searching (setq proof-terminal-string (char-to-string proof-terminal-char)) - ;; FIXME: these are LEGO specific! - (setq pbp-goal-command (concat "Pbp %s" proof-terminal-string)) - (setq pbp-hyp-command (concat "PbpHyp %s" proof-terminal-string)) - ;; FIXME da: I'm not sure we ought to add spaces here, but if ;; we don't, there would be trouble overloading these settings ;; to also use as regexps for finding comments. diff --git a/generic/proof-shell.el b/generic/proof-shell.el index 6e41ff6f..961466b7 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -227,14 +227,6 @@ Does nothing if proof assistant is already running." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defvar pbp-goal-command nil - "Command informing the prover that `pbp-button-action' has been - requested on a goal.") - -(defvar pbp-hyp-command nil - "Command informing the prover that `pbp-button-action' has been - requested on an assumption.") - (defun pbp-button-action (event) (interactive "e") (mouse-set-point event) |