Stefan Reichör <[EMAIL PROTECTED]> writes:
> Some days ago I played a bit with the new tla--run-tla... functions.
> I tried to use them in tla-log-edit-insert-log-for-merge. But I
> couldn't make it work.
>
> So I just left the old code:
>
> (tla--run-arch nil t 'log-for-merge "log-for-merge")
> (insert (tla-get-process-output))
>
> How can I implement this functionality with the new functions?
Like done in [EMAIL PROTECTED]
I suppose ;-)
--- orig/lisp/xtla.el
+++ mod/lisp/xtla.el
@@ -4001,8 +4001,13 @@
(tla-log-goto-summary)
(delete-region (point) (line-end-position))
(if on-summary-line (tla-log-goto-body) (goto-char old-pos)))
- (tla--run-arch nil t 'log-for-merge "log-for-merge")
- (insert (tla-get-process-output))
+ (tla--run-tla-sync '("log-for-merge")
+ :finished
+ `(lambda (output error status)
+ (let ((content (tla--buffer-content
+ output)))
+ (with-current-buffer ,(current-buffer)
+ (insert content)))))
(when arg
(tla-log-goto-summary)
(insert (tla-merge-summary-line-for-log)))))
--
Matthieu
