branch: externals/trie
commit 0ecad1b7c29763bde40275e0f34fa3dd94f2fdb3
Author: Toby Cubitt <[email protected]>
Commit: tsc25 <[email protected]>
Fixed avl type trie--createfun to accept (and ignore) extra seq argument
---
trie.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/trie.el b/trie.el
index 1ac4825..68319ef 100644
--- a/trie.el
+++ b/trie.el
@@ -228,7 +228,8 @@ If START or END is negative, it counts from the end."
&aux
(createfun
(cond
- ((eq type 'avl) 'avl-tree-create)
+ ((eq type 'avl)
+ (lambda (cmpfun seq) (avl-tree-create cmpfun)))
(t (error "trie--create: unknown trie TYPE, %s" type))))
(insertfun
(cond
