mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 15:50:40 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/pp.el (pp-fill): Fix bug#65159

Browse source
This commit is contained in:
Stefan Monnier 2023-08-14 23:01:12 -04:00
parent 046b5eb90d
commit eba0f091d9
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -226,8 +226,10 @@ it inserts and pretty-prints that arg at point."
(if (eq lif 'defun) (setq lif 2))
(when (natnump lif)
(goto-char (match-end 0))
(forward-sexp lif)
(funcall newline)))))
;; Do nothing if there aren't enough args.
(ignore-error scan-error
(forward-sexp lif)
(funcall newline))))))
(save-excursion
(pp-fill (1+ paired) (1- (point)))))
;; Now the sexp either ends beyond `fill-column' or is