diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-11 12:15:04 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-11 12:15:38 +0200 |
| commit | 8ab9102950e9476c0d0d1cbecfd7c1dd22141a5f (patch) | |
| tree | c4e0e1700323c0c2b2ded867a06a405814fcbbf8 /lisp/emacs-lisp | |
| parent | 693929bf48be866763edd5bc2b6e2745bec134cf (diff) | |
| download | emacs-8ab9102950e9476c0d0d1cbecfd7c1dd22141a5f.tar.gz emacs-8ab9102950e9476c0d0d1cbecfd7c1dd22141a5f.tar.bz2 emacs-8ab9102950e9476c0d0d1cbecfd7c1dd22141a5f.zip | |
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).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 68528e199f8..c906ee6e31d 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -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 |