diff options
| author | Mark Oteiza | 2016-11-25 14:14:41 -0500 |
|---|---|---|
| committer | Mark Oteiza | 2016-11-25 14:17:35 -0500 |
| commit | fc01cfc82db3878570373d31f80e486f9f33ecff (patch) | |
| tree | bc2182ae03feb3e0d5b65ecbf39df970cc6b5fa9 | |
| parent | 83bf70f81ec13b1f6ba3afeba503f483bf2fcc75 (diff) | |
| download | emacs-fc01cfc82db3878570373d31f80e486f9f33ecff.tar.gz emacs-fc01cfc82db3878570373d31f80e486f9f33ecff.zip | |
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.
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 1 |
1 files changed, 1 insertions, 0 deletions
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'. | |||
| 923 | "count" "maximize" "minimize" "if" "unless" | 923 | "count" "maximize" "minimize" "if" "unless" |
| 924 | "return"] | 924 | "return"] |
| 925 | form] | 925 | form] |
| 926 | ["using" (symbolp symbolp)] | ||
| 926 | ;; Simple default, which covers 99% of the cases. | 927 | ;; Simple default, which covers 99% of the cases. |
| 927 | symbolp form))) | 928 | symbolp form))) |
| 928 | (if (not (memq t (mapcar #'symbolp | 929 | (if (not (memq t (mapcar #'symbolp |