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

Tweak multi-line expressions in pp--format-function

Browse source 
* lisp/emacs-lisp/pp.el (pp--format-function): Fix up multi-line
expressions.
This commit is contained in:
Lars Ingebrigtsen 2021-11-04 23:16:47 +01:00
parent cb9f3e1158
commit 4cf7af5a2a
2 changed files with 20 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -267,8 +267,14 @@ Ignores leading comment characters."
;; Get the first entries on the first line.
(if indent
(pp--format-definition sexp indent edebug)
(while sexp
(pp--insert " " (pop sexp))))
(let ((prev 0))
(while sexp
(let ((start (point)))
;; Don't put sexps on the same line as a multi-line sexp
;; preceding it.
(pp--insert (if (> prev 1) "\n" " ")
(pop sexp))
(setq prev (count-lines start (point)))))))
(insert ")")))
(defun pp--format-definition (sexp indent edebug)