From e879c065272dc0719c0f2f91db642c315447c781 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Tue, 3 Jan 2017 04:49:52 +0700
Subject: Add a function to get completion data from a reference tree node.

---
 src/reference_tree.ml | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/reference_tree.ml')

diff --git a/src/reference_tree.ml b/src/reference_tree.ml
index 84abbd6..5243e82 100644
--- a/src/reference_tree.ml
+++ b/src/reference_tree.ml
@@ -219,3 +219,8 @@ let get_value_help reftree path =
     let data = Vytree.get_data reftree path in
     data.value_help
 
+let get_completion_data reftree path =
+    let aux node =
+        let data = Vytree.data_of_node node in
+        (data.node_type, data.multi, data.help)
+    in List.map aux (Vytree.children_of_node @@ Vytree.get reftree path)
-- 
cgit v1.2.3