diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-07 02:44:42 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-11-07 02:44:42 +0100 |
| commit | d69b5a9caaf7697eb70b9eb5e63fae8b94ccd798 (patch) | |
| tree | 3e9738021c32ad0d527bc7f76bb0359e5fd97d08 /lisp | |
| parent | 6a546a248696ff82152fbafb46b7cc3586abbb1d (diff) | |
| download | emacs-d69b5a9caaf7697eb70b9eb5e63fae8b94ccd798.tar.gz emacs-d69b5a9caaf7697eb70b9eb5e63fae8b94ccd798.tar.bz2 emacs-d69b5a9caaf7697eb70b9eb5e63fae8b94ccd798.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/pp.el | 3 |
1 files changed, 3 insertions, 0 deletions
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)) |