[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/package-vc-fixes 95c23792ab 2/3: Fix edebug spec for 'package--w
From: |
Philip Kaludercic |
Subject: |
scratch/package-vc-fixes 95c23792ab 2/3: Fix edebug spec for 'package--with-response-buffer' |
Date: |
Fri, 11 Nov 2022 13:21:09 -0500 (EST) |
branch: scratch/package-vc-fixes
commit 95c23792abfe1202b69097c8687b8d729db0a624
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
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.
---
lisp/emacs-lisp/package.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index d5874dee06..893b3617bb 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1382,10 +1382,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)