branch: externals/trie commit 0ecad1b7c29763bde40275e0f34fa3dd94f2fdb3 Author: Toby Cubitt <toby-predict...@dr-qubit.org> Commit: tsc25 <toby-predict...@dr-qubit.org>
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