1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Core
open! Import
let buffers =
let buffers =
Funcall.Wrap.(
"ediff-buffers" <: Buffer.t @-> Buffer.t @-> list Function.t @-> return nil)
in
fun ~a ~b ~startup_hooks ->
let startup_hooks = List.map startup_hooks ~f:(Defun.lambda_nullary_nil [%here]) in
Async_ecaml.Private.run_outside_async [%here] (fun () -> buffers a b startup_hooks)
;;
let cleanup_hook = Hook.Wrap.("ediff-cleanup-hook" <: Normal_hook)