aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/inline.el2
-rw-r--r--test/lisp/emacs-lisp/edebug-tests.el10
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/inline.el b/lisp/emacs-lisp/inline.el
index 963e117ff34..de0112db631 100644
--- a/lisp/emacs-lisp/inline.el
+++ b/lisp/emacs-lisp/inline.el
@@ -71,7 +71,7 @@
71 71
72(defmacro inline-quote (_exp) 72(defmacro inline-quote (_exp)
73 "Similar to backquote, but quotes code and only accepts , and not ,@." 73 "Similar to backquote, but quotes code and only accepts , and not ,@."
74 (declare (debug backquote-form)) 74 (declare (debug (backquote-form)))
75 (error "inline-quote can only be used within define-inline")) 75 (error "inline-quote can only be used within define-inline"))
76 76
77(defmacro inline-const-p (_exp) 77(defmacro inline-const-p (_exp)
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)."
1093 (edebug-new-definition name)))) 1093 (edebug-new-definition name))))
1094 (should-error (eval-buffer) :type 'invalid-read-syntax)))) 1094 (should-error (eval-buffer) :type 'invalid-read-syntax))))
1095 1095
1096(ert-deftest edebug-tests-inline ()
1097 "Check that Edebug can instrument inline functions (Bug#53068)."
1098 (with-temp-buffer
1099 (print '(define-inline edebug-tests-inline (arg)
1100 (inline-quote ,arg))
1101 (current-buffer))
1102 (let ((edebug-all-defs t)
1103 (edebug-initial-mode 'Go-nonstop))
1104 (eval-buffer))))
1105
1096(provide 'edebug-tests) 1106(provide 'edebug-tests)
1097;;; edebug-tests.el ends here 1107;;; edebug-tests.el ends here