aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorYuan Fu2024-08-04 20:46:45 -0700
committerYuan Fu2024-08-04 20:49:02 -0700
commit5ecd35555e9e20de9717f0184f58a15d8a2e68a3 (patch)
treea9b183d21257a74ab82239ee0b94071c25994e13
parentf70a6ea0ea86ef461e40d20664a75a92d02679ea (diff)
downloademacs-5ecd35555e9e20de9717f0184f58a15d8a2e68a3.tar.gz
emacs-5ecd35555e9e20de9717f0184f58a15d8a2e68a3.zip
Fix c-ts-common filling
* 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.
-rw-r--r--lisp/progmodes/c-ts-common.el6
-rw-r--r--test/lisp/progmodes/c-ts-mode-resources/filling.erts16
2 files changed, 18 insertions, 4 deletions
diff --git a/lisp/progmodes/c-ts-common.el b/lisp/progmodes/c-ts-common.el
index 022d21e11a1..674623a5e61 100644
--- a/lisp/progmodes/c-ts-common.el
+++ b/lisp/progmodes/c-ts-common.el
@@ -186,9 +186,9 @@ comment."
186 ;; filling region. 186 ;; filling region.
187 (when (not end-marker) 187 (when (not end-marker)
188 (goto-char end) 188 (goto-char end)
189 (when (looking-back (rx "*/") 2) 189 (forward-line 0)
190 (backward-char 2) 190 (when (looking-at (rx (* (or (syntax whitespace) "*" "=" "-"))
191 (skip-syntax-backward "-") 191 "*/" eol))
192 (setq end (point)))) 192 (setq end (point))))
193 193
194 ;; Let `fill-paragraph' do its thing. 194 ;; Let `fill-paragraph' do its thing.
diff --git a/test/lisp/progmodes/c-ts-mode-resources/filling.erts b/test/lisp/progmodes/c-ts-mode-resources/filling.erts
index e58b8e91c90..5425519b3d7 100644
--- a/test/lisp/progmodes/c-ts-mode-resources/filling.erts
+++ b/test/lisp/progmodes/c-ts-mode-resources/filling.erts
@@ -101,7 +101,7 @@ Name: Type 4
101=-= 101=-=
102/*================================================================ 102/*================================================================
103 * woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy 103 * woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
104 woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy 104 * woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
105 woooomy woooomy woooomy woooomy woooomy 105 woooomy woooomy woooomy woooomy woooomy
106 * ================================================================*/ 106 * ================================================================*/
107=-= 107=-=
@@ -112,6 +112,20 @@ Name: Type 4
112 * ================================================================*/ 112 * ================================================================*/
113=-=-= 113=-=-=
114 114
115Name: Type 4 Single-line
116
117=-=
118/*================================================================
119 * woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
120 * ================================================================*/
121=-=
122/*================================================================
123 * woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy
124 * woooomy woooomy
125 * ================================================================*/
126=-=-=
127
128
115Name: Type 5 129Name: Type 5
116 130
117/* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy 131/* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy