From 17f472d1dbb4d50f2977255c6d5e0c2f84ae11e0 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Sun, 12 May 2024 19:58:14 +0200 Subject: [PATCH] Don't try to pretty-print non-lists as binding list * lisp/emacs-lisp/pp.el (pp--format-definition): Ensure that what we try to print as a list of bindings has an appropriate format. This avoids raising an error for SEXPs like (let X Y) inside `pcase' forms where our heuristic expects a binding list in the X position. (cherry picked from commit 3580dc155c3c9f48fb1b7855b4d858eec3948dfb) --- lisp/emacs-lisp/pp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el index 0ac74977d0b..0b4a6187e1d 100644 --- a/lisp/emacs-lisp/pp.el +++ b/lisp/emacs-lisp/pp.el @@ -578,7 +578,8 @@ the bounds of a region containing Lisp code to pretty-print." (unless (consp edebug) (setq edebug nil)) (if (and (consp (car edebug)) - (eq (caar edebug) '&rest)) + (eq (caar edebug) '&rest) + (proper-list-p (car sexp))) (pp--insert-binding (pop sexp)) (if (null (car sexp)) (insert "()") -- 2.39.5