From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 7 Nov 2021 01:44:42 +0000 (+0100)
Subject: Fix pp-emacs-lisp-code for `when' and related
X-Git-Tag: emacs-29.0.90~3671^2~154
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d69b5a9caaf7697eb70b9eb5e63fae8b94ccd798;p=emacs.git

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.
---

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))