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

Fix Edebug specification for inline functions (Bug#53068).

Browse source 
* lisp/emacs-lisp/inline.el (inline-quote): Fix Edebug specification.

* test/lisp/emacs-lisp/edebug-tests.el (edebug-tests-inline): New unit
test.
This commit is contained in:
Philipp Stephani 2022-01-13 12:55:06 +01:00
parent 3c06c37a8b
commit 34ca4ff9a5
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/inline.el
View file

@ -71,7 +71,7 @@
(defmacro inline-quote (_exp)
"Similar to backquote, but quotes code and only accepts , and not ,@."
(declare (debug backquote-form))
(declare (debug (backquote-form)))
(error "inline-quote can only be used within define-inline"))
(defmacro inline-const-p (_exp)

10
test/lisp/emacs-lisp/edebug-tests.el
View file

@ -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