diff options
| author | Philipp Stephani <phst@google.com> | 2020-06-10 15:34:41 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2020-06-10 15:34:41 +0200 |
| commit | 73be4d1ed5b190bd93e9bad6aebe43d0dea0d7d3 (patch) | |
| tree | b9630e055af5343ae28f7eaa6e0d38a17a1b073f /test/lisp/emacs-lisp/cl-macs-tests.el | |
| parent | 9e04d0f289cc74fe2453910287bdab37e4aa1d35 (diff) | |
| download | emacs-73be4d1ed5b190bd93e9bad6aebe43d0dea0d7d3.tar.gz | |
Allow destructuring in &aux sections when using edebug (Bug#40431)
* lisp/emacs-lisp/cl-macs.el (cl-lambda-list, cl-lambda-list1)
(cl-macro-list, cl-macro-list1): Allow arbitrary 'cl-lambda'
arguments in the &aux section.
* test/lisp/emacs-lisp/cl-macs-tests.el (cl-macs-aux-edebug): New
regression test.
Diffstat (limited to 'test/lisp/emacs-lisp/cl-macs-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-macs-tests.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el index 24bbad0cc6b..29ae95e2771 100644 --- a/test/lisp/emacs-lisp/cl-macs-tests.el +++ b/test/lisp/emacs-lisp/cl-macs-tests.el @@ -601,4 +601,13 @@ collection clause." collect y into result1 finally return (equal (nreverse result) result1)))) +(ert-deftest cl-macs-aux-edebug () + "Check that Bug#40431 is fixed." + (with-temp-buffer + (prin1 '(cl-defun cl-macs-aux-edebug-test-fun (&aux ((a . b) '(1 . 2))) + (list a b)) + (current-buffer)) + ;; Just make sure the function can be instrumented. + (edebug-defun))) + ;;; cl-macs-tests.el ends here |