diff options
| author | Mark Oteiza | 2016-11-04 10:23:46 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2016-11-04 10:23:46 -0400 |
| commit | abe594c0990a4e6bc72b20b7ff06b4b0c01a682c (patch) | |
| tree | b88f616a050671315a8f2e4883b3e3d802ad0658 | |
| parent | 6a4158022e3eefccd76a1c1e9a87eb69e223b29e (diff) | |
| download | emacs-abe594c0990a4e6bc72b20b7ff06b4b0c01a682c.tar.gz emacs-abe594c0990a4e6bc72b20b7ff06b4b0c01a682c.zip | |
* lisp/emacs-lisp/pcase.el (pcase-dolist): Add a docstring.
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 0b8dddfacc9..896ad925928 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el | |||
| @@ -298,6 +298,8 @@ any kind of error." | |||
| 298 | 298 | ||
| 299 | ;;;###autoload | 299 | ;;;###autoload |
| 300 | (defmacro pcase-dolist (spec &rest body) | 300 | (defmacro pcase-dolist (spec &rest body) |
| 301 | "Like `dolist' but where the binding can be a `pcase' pattern. | ||
| 302 | \n(fn (PATTERN LIST) BODY...)" | ||
| 301 | (declare (indent 1) (debug ((pcase-PAT form) body))) | 303 | (declare (indent 1) (debug ((pcase-PAT form) body))) |
| 302 | (if (pcase--trivial-upat-p (car spec)) | 304 | (if (pcase--trivial-upat-p (car spec)) |
| 303 | `(dolist ,spec ,@body) | 305 | `(dolist ,spec ,@body) |