emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master ccd7ab84c5 20/42: Fix edebug spec for 'package--with-response-buf


From: Philip Kaludercic
Subject: master ccd7ab84c5 20/42: Fix edebug spec for 'package--with-response-buffer'
Date: Thu, 17 Nov 2022 14:56:22 -0500 (EST)

branch: master
commit ccd7ab84c5a8685c66ee1b62cb486c00edd2d992
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 8e6e7b7dcf..23e0bb15d0 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]