diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-13 14:46:58 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-13 14:46:58 -0400 |
| commit | 4aca2fdfda69c1b8ea9df13189c198812e0728bf (patch) | |
| tree | 591eee519f500e8ded7e1b545384a1ddecf65560 /lisp | |
| parent | 8bab07bc03c7f51b64daecef0168eb11c2f5c1eb (diff) | |
| download | emacs-4aca2fdfda69c1b8ea9df13189c198812e0728bf.tar.gz | |
* lisp/emacs-lisp/pcase.el (pcase-dolist): Autoload as well.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/pcase.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/pcase.el b/lisp/emacs-lisp/pcase.el index 49603036ead..978c3f0dd30 100644 --- a/lisp/emacs-lisp/pcase.el +++ b/lisp/emacs-lisp/pcase.el @@ -263,6 +263,7 @@ of the form (UPAT EXP)." (push (list (car binding) tmpvar) matches))))) `(let ,(nreverse bindings) (pcase-let* ,matches ,@body))))) +;;;###autoload (defmacro pcase-dolist (spec &rest body) (declare (indent 1) (debug ((pcase-UPAT form) body))) (if (pcase--trivial-upat-p (car spec)) |