procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix pp-emacs-lisp-code for `when' and related

Browse source 
* lisp/emacs-lisp/pp.el (pp--format-definition): Skip edebug specs
we don't understand at all.
This commit is contained in:
Lars Ingebrigtsen 2021-11-07 02:44:42 +01:00
parent 6a546a2486
commit d69b5a9caa
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/pp.el
View file

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