From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 13 Jul 2019 16:07:11 +0000 (+0200)
Subject: Add edebug specs for inline.el
X-Git-Tag: emacs-27.0.90~1939
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed29d9fe5286ab6ecfb2bfa5a015b9945a84512b;p=emacs.git

Add edebug specs for inline.el

* lisp/emacs-lisp/inline.el (inline-quote)
(inline-letevals): Add edebug specs (bug#31051).
---

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 @@
 
 (require 'macroexp)
 
+(def-edebug-spec inline-quote (backquote-form))
 (defmacro inline-quote (_exp)
   "Similar to backquote, but quotes code and only accepts , and not ,@."
   (declare (debug t))
@@ -100,6 +101,7 @@
   ;; inline-letevals, so signal the error in terms of the user's code.
   (error "inline-letevals can only be used within define-inline"))
 
+(def-edebug-spec inline-letevals '(sexp body))
 (defmacro inline-letevals (vars &rest body)
   "Make sure the expressions in VARS are evaluated.
 VARS should be a list of elements of the form (VAR EXP) or just VAR, in case