[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 69771b4 4/4: * lisp/emacs-lisp/radix-tree.el (pcase
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 69771b4 4/4: * lisp/emacs-lisp/radix-tree.el (pcase-defmacro): Improve docstring |
Date: |
Fri, 19 Apr 2019 23:32:12 -0400 (EDT) |
branch: master
commit 69771b4e6acfe2998e4c3c30e07fb4600d42515d
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/radix-tree.el (pcase-defmacro): Improve docstring
---
lisp/emacs-lisp/radix-tree.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/radix-tree.el b/lisp/emacs-lisp/radix-tree.el
index 75d9874..dd65e1a 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))))