From 0c26c0a8e4f78d8474f65caba5b1341463a4db78 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Mon, 13 Sep 1999 14:10:13 +0000 Subject: Added proof-terminal-string to proof-execute-minibuffer-cmd. --- generic/proof-script.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'generic') 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))) -- cgit v1.2.3