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

More effectually prevent defun list wrapping in C-x C-w

Browse source 
* lisp/vc/log-edit.el (log-edit-fill-entry): Match and replace
with NBSPs the opening defun list also.

* test/lisp/vc/log-edit-tests.el
(log-edit-fill-entry-no-defun-list-wrapping): New test.
This commit is contained in:
Po Lu 2024-04-24 11:45:31 +08:00
parent d3d1be8ae5
commit 145a77808e
2 changed files with 27 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/vc/log-edit.el
View file

@ -698,7 +698,15 @@ according to `fill-column'."
(save-excursion
(goto-char beg)
(when (re-search-forward
"^[[:blank:]]*(.*\\([[:space:]]\\).*):"
;; Also replace spaces within defun lists
;; prefixed by a file name so that
;; fill-region never attempts to break
;; them, even if multiple items combine
;; with symbols to exceed the fill column
;; by the expressly permitted margin of 1
;; character.
(concat "^\\([[:blank:]]*\\|\\* .*[[:blank:]]"
"\\)(.*\\([[:space:]]\\).*):")
end t)
(replace-regexp-in-region "[[:space:]]" " "
(setq space-beg