From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 16 Feb 2021 22:32:04 +0000 (+0100)
Subject: Fix edebug spec for minibuffer-with-setup-hook
X-Git-Tag: emacs-28.0.90~3694
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b39ac4c85a80bc2ee07c3e2f5d5b93c493062ecf;p=emacs.git

Fix edebug spec for minibuffer-with-setup-hook

* lisp/files.el (minibuffer-with-setup-hook): Instrument the
:append form for edebug (bug#46531).
---

diff --git a/lisp/files.el b/lisp/files.el
index 9ff8f31e374..68e883513cb 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1639,7 +1639,7 @@ called additional times).
 
 This macro actually adds an auxiliary function that calls FUN,
 rather than FUN itself, to `minibuffer-setup-hook'."
-  (declare (indent 1) (debug t))
+  (declare (indent 1) (debug ([&or (":append" form) [&or symbolp form]] body)))
   (let ((hook (make-symbol "setup-hook"))
         (funsym (make-symbol "fun"))
         (append nil))