aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2019-07-13 18:07:11 +0200
committerLars Ingebrigtsen2019-07-13 18:07:11 +0200
commited29d9fe5286ab6ecfb2bfa5a015b9945a84512b (patch)
tree5548c69abd3bc7dc299bb32b0dd95e6b3f0e3bef
parent196ea8c4b3ff20c41b8202a1cce746ca54232cbd (diff)
downloademacs-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.el2
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.
105VARS should be a list of elements of the form (VAR EXP) or just VAR, in case 107VARS should be a list of elements of the form (VAR EXP) or just VAR, in case