From d69b5a9caaf7697eb70b9eb5e63fae8b94ccd798 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 7 Nov 2021 02:44:42 +0100
Subject: [PATCH] Fix pp-emacs-lisp-code for `when' and related

* lisp/emacs-lisp/pp.el (pp--format-definition): Skip edebug specs
we don't understand at all.
---
 lisp/emacs-lisp/pp.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 3f5e1a48469..8464b5a5198 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -310,6 +310,9 @@ Use the `pp-max-width' variable to control the desired line length."
   (while (and (cl-plusp indent)
               sexp)
     (insert " ")
+    ;; We don't understand all the edebug specs.
+    (unless (consp edebug)
+      (setq edebug nil))
     (if (and (consp (car edebug))
              (eq (caar edebug) '&rest))
         (pp--insert-binding (pop sexp))
-- 
2.39.5