From: Philip Kaludercic <philipk@posteo.net>
Date: Fri, 11 Nov 2022 17:32:13 +0000 (+0100)
Subject: Fix edebug spec for 'package--with-response-buffer'
X-Git-Tag: emacs-29.0.90~1616^2~79
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccd7ab84c5a8685c66ee1b62cb486c00edd2d992;p=emacs.git

Fix edebug spec for 'package--with-response-buffer'

* lisp/emacs-lisp/package.el (package--with-response-buffer): Add a
spec that makes the macro debuggable.
---

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 8e6e7b7dcf8..23e0bb15d0a 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1363,10 +1363,7 @@ is non-nil, don't propagate connection errors (does not apply to
 errors signaled by ERROR-FORM or by BODY).
 
 \(fn URL &key ASYNC FILE ERROR-FORM NOERROR &rest BODY)"
-  (declare (indent defun)
-           ;; FIXME: This should be something like
-           ;; `form def-body &rest form', but that doesn't work.
-           (debug (form &rest sexp)))
+  (declare (indent defun) (debug (sexp body)))
   (while (keywordp (car body))
     (setq body (cdr (cdr body))))
   `(package--with-response-buffer-1 ,url (lambda () ,@body)