Mark Triggs <[EMAIL PROTECTED]> writes:
> Matthieu MOY <[EMAIL PROTECTED]> writes:
>
> Just a quick note on this... I've been fiddling around with
> tla-run-arch and the sentinel code a bit. At the moment I've got
> something that lets you write:
>
>
> (defun tla-changes (&optional arg)
> "Run tla changes."
> (interactive "P")
> (tla-save-some-buffers)
> (let* ((root (tla-tree-root))
> (buffer (tla--get-buffer-create 'changes root)))
> (with-current-buffer buffer
> (let (buffer-read-only) (erase-buffer))))
> (tla-run-arch (if arg '("changes") '("changes" "--diffs")) t ; t runs
> asynchronously
> :finished (lambda (output error status)
> (message "No changes in this working copy"))
> :killed (lambda (output error status)
> (message "Command killed unexpectedly!"))
> :error (lambda (output error status)
> (let ((tla-process-buffer output))
> (tla-show-changes-buffer)))))
I like that approach. Please commit it, when you think that it is
stable enough.
--
Stefan.
