Fix `M-x lisp-fill-paragraph'

* lisp/emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Fix filling
when called directly with `M-x lisp-fill-paragraph' instead of via
`M-q' (bug#56476).
This commit is contained in:
Lars Ingebrigtsen 2022-07-11 12:15:04 +02:00
parent 693929bf48
commit 8ab9102950

View file

@ -1466,7 +1466,10 @@ and initial semicolons."
emacs-lisp-docstring-fill-column
fill-column)))
(let ((ppss (syntax-ppss))
(start (point)))
(start (point))
;; Avoid recursion if we're being called directly with
;; `M-x lisp-fill-paragraph' in an `emacs-lisp-mode' buffer.
(fill-paragraph-function t))
(save-excursion
(save-restriction
;; If we're not inside a string, then do very basic