diff options
Diffstat (limited to 'generic/proof-script.el')
| -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))) |