diff options
| -rw-r--r-- | lisp/emacs-lisp/inline.el | 2 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/edebug-tests.el | 10 |
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 |