diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-05-29 10:07:21 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-05-29 10:07:21 +0200 |
| commit | 8a09ec0d45cdc8fa54203a0f7cc1a8c909627497 (patch) | |
| tree | 2b7516e767bea0d86e3f819b6856841083f138b9 /lisp/emacs-lisp/radix-tree.el | |
| parent | 0f48d18fd2a30f29cc3592a835d2a2254c9b0afb (diff) | |
| parent | 9d6a3ac73af66184e5bb23555b93833f6a4d9f2e (diff) | |
| download | emacs-8a09ec0d45cdc8fa54203a0f7cc1a8c909627497.tar.gz | |
Merge from origin/emacs-26
9d6a3ac73a Mention pcase as a fifth conditional form
567cb9046d Overhaul pcase documentation
4d7e54acff Use EXPVAL in docstrings of patterns defined using pcase-d...
7e8227ed68 Introduce EXPVAL for pcase, pcase-defmacro docstrings
e6de5b3d51 Ensure pcase doc shows `QPAT first among extensions
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 e3c5800efb1..2491ccea95b 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)))) |