diff options
| author | Lars Ingebrigtsen | 2019-07-13 18:07:11 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-13 18:07:11 +0200 |
| commit | ed29d9fe5286ab6ecfb2bfa5a015b9945a84512b (patch) | |
| tree | 5548c69abd3bc7dc299bb32b0dd95e6b3f0e3bef | |
| parent | 196ea8c4b3ff20c41b8202a1cce746ca54232cbd (diff) | |
| download | emacs-ed29d9fe5286ab6ecfb2bfa5a015b9945a84512b.tar.gz emacs-ed29d9fe5286ab6ecfb2bfa5a015b9945a84512b.zip | |
Add edebug specs for inline.el
* lisp/emacs-lisp/inline.el (inline-quote)
(inline-letevals): Add edebug specs (bug#31051).
| -rw-r--r-- | lisp/emacs-lisp/inline.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/inline.el b/lisp/emacs-lisp/inline.el index 70dbff2147d..66002898b65 100644 --- a/lisp/emacs-lisp/inline.el +++ b/lisp/emacs-lisp/inline.el | |||
| @@ -69,6 +69,7 @@ | |||
| 69 | 69 | ||
| 70 | (require 'macroexp) | 70 | (require 'macroexp) |
| 71 | 71 | ||
| 72 | (def-edebug-spec inline-quote (backquote-form)) | ||
| 72 | (defmacro inline-quote (_exp) | 73 | (defmacro inline-quote (_exp) |
| 73 | "Similar to backquote, but quotes code and only accepts , and not ,@." | 74 | "Similar to backquote, but quotes code and only accepts , and not ,@." |
| 74 | (declare (debug t)) | 75 | (declare (debug t)) |
| @@ -100,6 +101,7 @@ | |||
| 100 | ;; inline-letevals, so signal the error in terms of the user's code. | 101 | ;; inline-letevals, so signal the error in terms of the user's code. |
| 101 | (error "inline-letevals can only be used within define-inline")) | 102 | (error "inline-letevals can only be used within define-inline")) |
| 102 | 103 | ||
| 104 | (def-edebug-spec inline-letevals '(sexp body)) | ||
| 103 | (defmacro inline-letevals (vars &rest body) | 105 | (defmacro inline-letevals (vars &rest body) |
| 104 | "Make sure the expressions in VARS are evaluated. | 106 | "Make sure the expressions in VARS are evaluated. |
| 105 | VARS should be a list of elements of the form (VAR EXP) or just VAR, in case | 107 | VARS should be a list of elements of the form (VAR EXP) or just VAR, in case |