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

Actually fill the correct paragraph in `lisp-fill-paragraph'

Browse source 
* lisp/emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Fix previous
change here by actually filling the correct paragraph (bug#28937).
This commit is contained in:
Lars Ingebrigtsen 2021-03-05 14:01:00 +01:00
parent 0ddbacca7d
commit ef61a6b636
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/lisp-mode.el
View file

@ -1371,7 +1371,8 @@ and initial semicolons."
fill-column)))
(save-restriction
(save-excursion
(let ((ppss (syntax-ppss)))
(let ((ppss (syntax-ppss))
(start (point)))
;; If we're in a string, then narrow (roughly) to that
;; string before filling. This avoids filling Lisp
;; statements that follow the string.
@ -1386,6 +1387,8 @@ and initial semicolons."
t))
(narrow-to-region (ppss-comment-or-string-start ppss)
(point))))
;; Move back to where we were.
(goto-char start)
(fill-paragraph justify)))))
;; Never return nil.
t))