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

Fix c-ts-common filling

Browse source 
* lisp/progmodes/c-ts-common.el:
(c-ts-common--fill-block-comment): Exclude the last line from filling if
it only has non-word characters like *=-.
* test/lisp/progmodes/c-ts-mode-resources/filling.erts: Fir the
multi-line test and add a single line test.
This commit is contained in:
Yuan Fu 2024-08-04 20:46:45 -07:00
parent f70a6ea0ea
commit 5ecd35555e
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
2 changed files with 18 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/progmodes/c-ts-common.el
View file

@ -186,9 +186,9 @@ comment."
;; filling region.
(when (not end-marker)
(goto-char end)
(when (looking-back (rx "*/") 2)
(backward-char 2)
(skip-syntax-backward "-")
(forward-line 0)
(when (looking-at (rx (* (or (syntax whitespace) "*" "=" "-"))
"*/" eol))
(setq end (point))))
;; Let `fill-paragraph' do its thing.

16
test/lisp/progmodes/c-ts-mode-resources/filling.erts
View file

@ -101,7 +101,7 @@ Name: Type 4
=-=
/*================================================================
* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
woooomy woooomy woooomy woooomy woooomy
* ================================================================*/
=-=
@ -112,6 +112,20 @@ Name: Type 4
* ================================================================*/
=-=-=
Name: Type 4 Single-line
=-=
/*================================================================
* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
* ================================================================*/
=-=
/*================================================================
* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
* woooomy woooomy
* ================================================================*/
=-=-=
Name: Type 5
/* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy