procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make Edebug specification for 'cl-defstruct' more lenient.

Browse source 
For example, 'xref-item' uses the list form of ':noinline'.

* lisp/emacs-lisp/cl-macs.el (cl-defstruct): Accept ':noinline' and
':named' with an argument.
* test/lisp/emacs-lisp/cl-macs-tests.el (cl-defstruct/edebug): New
unit test.
This commit is contained in:
Philipp Stephani 2022-03-14 10:59:03 +01:00
parent 637dde4aba
commit f3df7916b2
2 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/lisp/emacs-lisp/cl-macs-tests.el
View file

@ -709,4 +709,22 @@ collection clause."
;; Just make sure the forms can be instrumented.
(eval-buffer))))
(ert-deftest cl-defstruct/edebug ()
"Check that we can instrument `cl-defstruct' forms."
(with-temp-buffer
(dolist (form '((cl-defstruct cl-defstruct/edebug/1)
(cl-defstruct (cl-defstruct/edebug/2
:noinline))
(cl-defstruct (cl-defstruct/edebug/3
(:noinline t)))
(cl-defstruct (cl-defstruct/edebug/4
:named))
(cl-defstruct (cl-defstruct/edebug/5
(:named t)))))
(print form (current-buffer)))
(let ((edebug-all-defs t)
(edebug-initial-mode 'Go-nonstop))
;; Just make sure the forms can be instrumented.
(eval-buffer))))
;;; cl-macs-tests.el ends here