diff options
| author | Stefan Monnier | 2015-04-13 14:46:58 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2015-04-13 14:46:58 -0400 |
| commit | 4aca2fdfda69c1b8ea9df13189c198812e0728bf (patch) | |
| tree | 591eee519f500e8ded7e1b545384a1ddecf65560 | |
| parent | 8bab07bc03c7f51b64daecef0168eb11c2f5c1eb (diff) | |
| download | emacs-4aca2fdfda69c1b8ea9df13189c198812e0728bf.tar.gz emacs-4aca2fdfda69c1b8ea9df13189c198812e0728bf.zip | |
* lisp/emacs-lisp/pcase.el (pcase-dolist): Autoload as well.
| -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)." | |||
| 263 | (push (list (car binding) tmpvar) matches))))) | 263 | (push (list (car binding) tmpvar) matches))))) |
| 264 | `(let ,(nreverse bindings) (pcase-let* ,matches ,@body))))) | 264 | `(let ,(nreverse bindings) (pcase-let* ,matches ,@body))))) |
| 265 | 265 | ||
| 266 | ;;;###autoload | ||
| 266 | (defmacro pcase-dolist (spec &rest body) | 267 | (defmacro pcase-dolist (spec &rest body) |
| 267 | (declare (indent 1) (debug ((pcase-UPAT form) body))) | 268 | (declare (indent 1) (debug ((pcase-UPAT form) body))) |
| 268 | (if (pcase--trivial-upat-p (car spec)) | 269 | (if (pcase--trivial-upat-p (car spec)) |