mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 00:40:35 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/pcase.el (pcase-dolist): Autoload as well.

Browse source
This commit is contained in:
Stefan Monnier 2015-04-13 14:46:58 -04:00
parent 8bab07bc03
commit 4aca2fdfda
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/emacs-lisp/pcase.el
View file

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