diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-04-19 23:31:59 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-04-19 23:31:59 -0400 |
| commit | 69771b4e6acfe2998e4c3c30e07fb4600d42515d (patch) | |
| tree | 35119ac68d3d8ba6d3736d2b6f2fe001954cb525 | |
| parent | 4c85e3f7e97875f3bda67113a1e4195d0264a707 (diff) | |
| download | emacs-69771b4e6acfe2998e4c3c30e07fb4600d42515d.tar.gz | |
* lisp/emacs-lisp/radix-tree.el (pcase-defmacro): Improve docstring
| -rw-r--r-- | lisp/emacs-lisp/radix-tree.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/radix-tree.el b/lisp/emacs-lisp/radix-tree.el index 75d9874b431..dd65e1a0b4e 100644 --- a/lisp/emacs-lisp/radix-tree.el +++ b/lisp/emacs-lisp/radix-tree.el @@ -196,8 +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." + "Pattern which matches a radix-tree leaf. +The pattern VPAT is matched against the leaf's carried 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)))) |