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

Fix a recent Lisp mode filling test failure

Browse source 
* lisp/emacs-lisp/lisp-mode.el (lisp-fill-paragraph): Restore the
"fill first line separately" logic.
This commit is contained in:
Lars Ingebrigtsen 2022-06-26 16:31:33 +02:00
parent 6a96d17734
commit 8f5d9d0abd
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1426,6 +1426,9 @@ and initial semicolons."
;; a comment: Point is on a program line; we are interested
;; particularly in docstring lines.
;;
;; FIXME: The below bindings are probably mostly irrelevant
;; since we're now narrowing to a region before filling.
;;
;; We bind `paragraph-start' and `paragraph-separate' temporarily. They
;; are buffer-local, but we avoid changing them so that they can be set
;; to make `forward-paragraph' and friends do something the user wants.
@ -1485,6 +1488,15 @@ and initial semicolons."
(1- (point)))))
;; Move back to where we were.
(goto-char start)
;; We should fill the first line of a string
;; separately (since it's usually a doc string).
(if (= (line-number-at-pos) 1)
(narrow-to-region (line-beginning-position)
(line-beginning-position 2))
(save-excursion
(goto-char (point-min))
(forward-line 1)
(narrow-to-region (point) (point-max))))
(fill-paragraph justify)))))))
;; Never return nil.
t)