mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Don't bug out on improper lists in pp-emacs-lisp-code

Browse Source 
* lisp/emacs-lisp/pp.el (pp--format-list): Don't bug out on
improper lists (bug#52917).
This commit is contained in:
Lars Ingebrigtsen 2022-01-15 10:40:39 +01:00
parent ad3971f885
commit f43b8f3831
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/emacs-lisp/pp.el
View File

@ -273,7 +273,10 @@ Use the `pp-max-width' variable to control the desired line length."
(insert "(")
(pp--insert start (pop sexp))
(while sexp
(pp--insert " " (pop sexp)))
(if (consp sexp)
(pp--insert " " (pop sexp))
(pp--insert " . " sexp)
(setq sexp nil)))
(insert ")")))
(defun pp--format-function (sexp)