diff options
Diffstat (limited to 'lisp/emacs-lisp/radix-tree.el')
| -rw-r--r-- | lisp/emacs-lisp/radix-tree.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/radix-tree.el b/lisp/emacs-lisp/radix-tree.el index 8946560d3ba..d76bf024d0a 100644 --- a/lisp/emacs-lisp/radix-tree.el +++ b/lisp/emacs-lisp/radix-tree.el @@ -196,6 +196,8 @@ If not found, return nil." (eval-and-compile (pcase-defmacro radix-tree-leaf (vpat) + "Build a `pcase' pattern that matches radix-tree leaf EXPVAL. +VPAT is a `pcase' pattern to extract the value." ;; FIXME: We'd like to use a negative pattern (not consp), but pcase ;; doesn't support it. Using `atom' works but generates sub-optimal code. `(or `(t . ,,vpat) (and (pred atom) ,vpat)))) |