forked from mirrors/org-mode
org-macs: Ensure that filter run before callbacks
* lisp/org-macs.el (org-async--cleanup-process): Run `accept-process-output` until no further output is fetched on process exit, so we can assume that the callbacks are run after all filter invocations.
This commit is contained in:
parent
2b36e6f5d3
commit
cfed7bbc79
|
@ -542,6 +542,9 @@ Otherwise, the failure callback is run."
|
||||||
(proc-buf (if (consp buffer-val) (cdr buffer-val) buffer-val)))
|
(proc-buf (if (consp buffer-val) (cdr buffer-val) buffer-val)))
|
||||||
(setq org-async--stack
|
(setq org-async--stack
|
||||||
(delq (assq process org-async--stack) org-async--stack))
|
(delq (assq process org-async--stack) org-async--stack))
|
||||||
|
;; Ensure that any filter is called on the final output
|
||||||
|
;; prior to the callbacks.
|
||||||
|
(while (accept-process-output process))
|
||||||
(org-async--execute-callback
|
(org-async--execute-callback
|
||||||
(plist-get
|
(plist-get
|
||||||
proc-info
|
proc-info
|
||||||
|
|
Loading…
Reference in New Issue