diff options
| author | Philipp Stephani <phst@google.com> | 2022-01-13 12:55:06 +0100 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2022-01-13 13:52:40 +0100 |
| commit | 34ca4ff9a52d38250f70f578fd045490b4eef4f9 (patch) | |
| tree | 54fcdbee2e72cd52cf0b5c87166d3f17502d9a49 /test/lisp/emacs-lisp | |
| parent | 3c06c37a8bc99797bebccebf27f4c9b61c52df4b (diff) | |
| download | emacs-34ca4ff9a52d38250f70f578fd045490b4eef4f9.tar.gz emacs-34ca4ff9a52d38250f70f578fd045490b4eef4f9.tar.bz2 emacs-34ca4ff9a52d38250f70f578fd045490b4eef4f9.zip | |
Fix Edebug specification for inline functions (Bug#53068).
* lisp/emacs-lisp/inline.el (inline-quote): Fix Edebug specification.
* test/lisp/emacs-lisp/edebug-tests.el (edebug-tests-inline): New unit
test.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/edebug-tests.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/edebug-tests.el b/test/lisp/emacs-lisp/edebug-tests.el index 92f63ec7880..4aae2870a3a 100644 --- a/test/lisp/emacs-lisp/edebug-tests.el +++ b/test/lisp/emacs-lisp/edebug-tests.el @@ -1093,5 +1093,15 @@ This avoids potential duplicate definitions (Bug#41988)." (edebug-new-definition name)))) (should-error (eval-buffer) :type 'invalid-read-syntax)))) +(ert-deftest edebug-tests-inline () + "Check that Edebug can instrument inline functions (Bug#53068)." + (with-temp-buffer + (print '(define-inline edebug-tests-inline (arg) + (inline-quote ,arg)) + (current-buffer)) + (let ((edebug-all-defs t) + (edebug-initial-mode 'Go-nonstop)) + (eval-buffer)))) + (provide 'edebug-tests) ;;; edebug-tests.el ends here |