diff options
| -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 |