diff options
| author | David Aspinall | 2002-11-20 12:18:53 +0000 |
|---|---|---|
| committer | David Aspinall | 2002-11-20 12:18:53 +0000 |
| commit | 2039e9e907e05683f8e7bf0051e4d1787b421b0e (patch) | |
| tree | 8ceca4bbb6056409ac6c65895c0b9827bace6cec | |
| parent | 780f5242aabba41e133529327e53a8eba0fda02c (diff) | |
proof-shell-invisible-cmd also accepts a function yielding a command.
| -rw-r--r-- | generic/proof-shell.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/proof-shell.el b/generic/proof-shell.el index a6b33f6c..794d39d2 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -1716,12 +1716,15 @@ Calls proof-state-change-hook." ;;;###autoload (defun proof-shell-invisible-command (cmd &optional wait) "Send CMD to the proof process. +CMD may be a string or a string-yielding function. Automatically add proof-terminal-char if necessary, examining proof-shell-no-auto-terminate-commands. By default, let the command be processed asynchronously. But if optional WAIT command is non-nil, wait for processing to finish before and after sending the command. If WAIT is an integer, wait for that many seconds afterwards." + (unless (stringp cmd) + (setq cmd (eval cmd))) (unless (or (null proof-terminal-char) (not proof-shell-auto-terminate-commands) (string-match (concat |