From 4aca2fdfda69c1b8ea9df13189c198812e0728bf Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 13 Apr 2015 14:46:58 -0400 Subject: [PATCH] * lisp/emacs-lisp/pcase.el (pcase-dolist): Autoload as well. --- lisp/emacs-lisp/pcase.el | 1 + 1 file changed, 1 insertion(+) 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)) -- 2.39.2