diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 1999-09-13 14:10:13 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 1999-09-13 14:10:13 +0000 |
| commit | 0c26c0a8e4f78d8474f65caba5b1341463a4db78 (patch) | |
| tree | 0b97e6cb9c02506a6d8119c562404ee32e95953b /generic | |
| parent | 57f2b53dd5d3fba3c4cb0604e929aa36da53615e (diff) | |
Added proof-terminal-string to proof-execute-minibuffer-cmd.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/proof-script.el | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/generic/proof-script.el b/generic/proof-script.el index 556b2f22..af881c23 100644 --- a/generic/proof-script.el +++ b/generic/proof-script.el @@ -1342,7 +1342,10 @@ even more dangerous than proof-try-command." ;; (proof-shell-ready-prover) ;; was (proof-check-process-available 'relaxed) (setq cmd (read-string "Command: " nil 'proof-minibuffer-history)) - (proof-shell-invisible-command cmd))) + (proof-shell-invisible-command + (if proof-terminal-string + (concat cmd proof-terminal-string) + cmd)))) @@ -1395,17 +1398,20 @@ even more dangerous than proof-try-command." (defun proof-ctxt () "List context." (interactive) - (proof-shell-invisible-command (concat proof-ctxt-string proof-terminal-string))) + (proof-shell-invisible-command + (concat proof-ctxt-string proof-terminal-string))) (defun proof-help () "Print help message giving syntax." (interactive) - (proof-shell-invisible-command (concat proof-help-string proof-terminal-string))) + (proof-shell-invisible-command + (concat proof-help-string proof-terminal-string))) (defun proof-prf () "List proof state." (interactive) - (proof-shell-invisible-command (concat proof-prf-string proof-terminal-string))) + (proof-shell-invisible-command + (concat proof-prf-string proof-terminal-string))) |