diff options
| author | David Aspinall | 2000-05-09 10:26:41 +0000 |
|---|---|---|
| committer | David Aspinall | 2000-05-09 10:26:41 +0000 |
| commit | 1b90d1ebd76b73738991457080cead9437aa6bbb (patch) | |
| tree | 0d18bc55838850b3b298095311cd9a75ec54e996 /generic/proof-shell.el | |
| parent | 44d54bf54da89c1f6b14cce3419cd6e2f8884b72 (diff) | |
Improved loading
Diffstat (limited to 'generic/proof-shell.el')
| -rw-r--r-- | generic/proof-shell.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/generic/proof-shell.el b/generic/proof-shell.el index 8761ff68..9a165804 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -107,6 +107,7 @@ See the functions `proof-start-queue' and `proof-exec-loop'.") ;; Maybe proof-shell-ready-prover doesn't need to start the shell? ;; +;;;###autoload (defun proof-shell-ready-prover (&optional queuemode) "Make sure the proof assistant is ready for a command. If QUEUEMODE is set, succeed if the proof shell is busy but @@ -117,12 +118,14 @@ No change to current buffer or point." (unless (or (not proof-shell-busy) (eq queuemode proof-shell-busy)) (error "Proof Process Busy!"))) +;;;###autoload (defun proof-shell-live-buffer () "Return buffer of active proof assistant, or nil if none running." (and proof-shell-buffer (comint-check-proc proof-shell-buffer) (buffer-live-p proof-shell-buffer))) +;;;###autoload (defun proof-shell-available-p () "Returns non-nil if there is a proof shell active and available. No error messages. Useful as menu or toolbar enabler." @@ -1176,7 +1179,8 @@ being processed." (nconc proof-action-list alist)) ;; Really start things going here (proof-shell-insert (nth 1 item) (nth 2 item))))))) - + +;;;###autoload (defun proof-start-queue (start end alist) "Begin processing a queue of commands in ALIST. If START is non-nil, START and END are buffer positions in the @@ -1187,6 +1191,7 @@ This function calls `proof-append-alist'." (proof-set-queue-endpoints start end)) (proof-append-alist alist)) +;;;###autoload (defun proof-extend-queue (end alist) "Extend the current queue with commands in ALIST, queue end END. To make sense, the commands should correspond to processing actions @@ -1706,6 +1711,7 @@ XEmacs only." ;; proof-shell-invisible-command: used to implement user-level commands. ;; +;;;###autoload (defun proof-shell-wait (&optional timeout) "Busy wait for proof-shell-busy to become nil, or for TIMEOUT seconds. Needed between sequences of commands to maintain synchronization, @@ -1758,6 +1764,7 @@ Calls proof-state-change-hook." ; Other (sensible) possibility is to call ; proof-shell-handle-error-or-interrupt-hook with span as argument. +;;;###autoload (defun proof-shell-invisible-command (cmd &optional wait) "Send CMD to the proof process. Add terminal string if necessary. By default, let the command be processed asynchronously. |
