From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 20 Apr 2019 03:31:59 +0000 (-0400)
Subject: * lisp/emacs-lisp/radix-tree.el (pcase-defmacro): Improve docstring
X-Git-Tag: emacs-27.0.90~3179
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=69771b4e6acfe2998e4c3c30e07fb4600d42515d;p=emacs.git

* lisp/emacs-lisp/radix-tree.el (pcase-defmacro): Improve docstring
---

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))))