From: Mark Oteiza <mvoteiza@udel.edu>
Date: Fri, 25 Nov 2016 19:14:41 +0000 (-0500)
Subject: Add "using" to cl-loop debug spec (Bug#24750)
X-Git-Tag: emacs-26.0.90~1266
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc01cfc82db3878570373d31f80e486f9f33ecff;p=emacs.git

Add "using" to cl-loop debug spec (Bug#24750)

* lisp/emacs-lisp/cl-macs.el (cl-loop): Add element to account for
"using" hash table clause.
---

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 2ebb824e707..210a2083727 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -923,6 +923,7 @@ For more details, see Info node `(cl)Loop Facility'.
                                "count" "maximize" "minimize" "if" "unless"
                                "return"]
                           form]
+                         ["using" (symbolp symbolp)]
                          ;; Simple default, which covers 99% of the cases.
                          symbolp form)))
   (if (not (memq t (mapcar #'symbolp