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 3f5e1a48469b14e8a8736e0daaf1d00de545c0c6..8464b5a51989b9799584356b7e91fe0723c032dc 100644 (file)
--- 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))