[elpa] externals/dict-tree 8a575f6 039/154: Added new trie functions to dictree--create-custom.

[Stefan Monnier]

branch: externals/dict-tree
commit 8a575f6552eae599679991a235bba0348c6dbf27
Author: Toby Cubitt <toby-predictive@dr-qubit.org>
Commit: tsc25 <toby-predictive@dr-qubit.org>

    Added new trie functions to dictree--create-custom.
    Changed dictree-create-custom to use keyword arguments.
---
 dict-tree.el | 56 ++++++++++++++++++++++++++++++++------------------------
 1 file changed, 32 insertions(+), 24 deletions(-)

diff --git a/dict-tree.el b/dict-tree.el
index 09428f9..3dc2a7b 100644
--- a/dict-tree.el
+++ b/dict-tree.el
@@ -381,18 +381,22 @@ If START or END is negative, it counts from the end."
                  &key
                  createfun insertfun deletefun lookupfun mapfun emptyfun
                  stack-createfun stack-popfun stack-emptyfun
+                 transform-for-print transform-from-read
                  &aux
                  (modified nil)
-                 (trie (trie-create-custom comparison-function
-                                    :createfun createfun
-                                    :insertfun insertfun
-                                    :deletefun deletefun
-                                    :lookupfun lookupfun
-                                    :mapfun mapfun
-                                    :emptyfun emptyfun
-                                    :stack-createfun stack-createfun
-                                    :stack-popfun stack-popfun
-                                    :stack-emptyfun stack-emptyfun))
+                 (trie (trie-create-custom
+                        comparison-function
+                        :createfun createfun
+                        :insertfun insertfun
+                        :deletefun deletefun
+                        :lookupfun lookupfun
+                        :mapfun mapfun
+                        :emptyfun emptyfun
+                        :stack-createfun stack-createfun
+                        :stack-popfun stack-popfun
+                        :stack-emptyfun stack-emptyfun
+                        :transform-for-print transform-for-print
+                        :transform-from-read transform-from-read))
                  (insfun (dictree--wrap-insfun insert-function))
                  (rankfun (dictree--wrap-rankfun rank-function))
                  (lookup-cache
@@ -707,19 +711,21 @@ structure. See `trie-create' for details."
 
 
 
-(defun dictree-create-custom
-  (&optional
-   name filename autosave unlisted
-   comparison-function insert-function rank-function
-   cache-policy cache-update-policy
-   lookup-cache-threshold
-   complete-cache-threshold
-   complete-ranked-cache-threshold
-   key-savefun key-loadfun
-   data-savefun data-loadfun
-   plist-savefun plist-loadfun
-   createfun insertfun deletefun lookupfun mapfun emptyfun
-   stack-createfun stack-popfun stack-emptyfun)
+(defun* dictree-create-custom
+    (&optional
+     name filename autosave unlisted
+     &key
+     comparison-function insert-function rank-function
+     cache-policy cache-update-policy
+     lookup-cache-threshold
+     complete-cache-threshold
+     complete-ranked-cache-threshold
+     key-savefun key-loadfun
+     data-savefun data-loadfun
+     plist-savefun plist-loadfun
+     createfun insertfun deletefun lookupfun mapfun emptyfun
+     stack-createfun stack-popfun stack-emptyfun
+     transform-for-print transform-from-read)
   "Create an empty dictionary and return it.
 
 The NAME through PLIST-LOADFUN arguments are as for
@@ -757,7 +763,9 @@ underlying data structure. See `trie-create' for details."
          :emptyfun emptyfun
          :stack-createfun stack-createfun
          :stack-popfun stack-popfun
-         :stack-emptyfun stack-emptyfun)))
+         :stack-emptyfun stack-emptyfun
+         :transform-for-print transform-for-print
+         :transform-from-read transform-from-read)))
     ;; store dictionary in variable NAME
     (when name (set name dict))
     ;; add it to loaded dictionary list, unless it's unlisted