diff options
| author | Stefan Monnier | 2019-04-19 23:31:59 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2019-04-19 23:31:59 -0400 |
| commit | 69771b4e6acfe2998e4c3c30e07fb4600d42515d (patch) | |
| tree | 35119ac68d3d8ba6d3736d2b6f2fe001954cb525 | |
| parent | 4c85e3f7e97875f3bda67113a1e4195d0264a707 (diff) | |
| download | emacs-69771b4e6acfe2998e4c3c30e07fb4600d42515d.tar.gz emacs-69771b4e6acfe2998e4c3c30e07fb4600d42515d.zip | |
* 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." | |||
| 196 | 196 | ||
| 197 | (eval-and-compile | 197 | (eval-and-compile |
| 198 | (pcase-defmacro radix-tree-leaf (vpat) | 198 | (pcase-defmacro radix-tree-leaf (vpat) |
| 199 | "Build a `pcase' pattern that matches radix-tree leaf EXPVAL. | 199 | "Pattern which matches a radix-tree leaf. |
| 200 | VPAT is a `pcase' pattern to extract the value." | 200 | The pattern VPAT is matched against the leaf's carried value." |
| 201 | ;; FIXME: We'd like to use a negative pattern (not consp), but pcase | 201 | ;; FIXME: We'd like to use a negative pattern (not consp), but pcase |
| 202 | ;; doesn't support it. Using `atom' works but generates sub-optimal code. | 202 | ;; doesn't support it. Using `atom' works but generates sub-optimal code. |
| 203 | `(or `(t . ,,vpat) (and (pred atom) ,vpat)))) | 203 | `(or `(t . ,,vpat) (and (pred atom) ,vpat)))) |