diff options
| author | Yuan Fu | 2024-08-04 20:46:45 -0700 |
|---|---|---|
| committer | Yuan Fu | 2024-08-04 20:49:02 -0700 |
| commit | 5ecd35555e9e20de9717f0184f58a15d8a2e68a3 (patch) | |
| tree | a9b183d21257a74ab82239ee0b94071c25994e13 | |
| parent | f70a6ea0ea86ef461e40d20664a75a92d02679ea (diff) | |
| download | emacs-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.el | 6 | ||||
| -rw-r--r-- | test/lisp/progmodes/c-ts-mode-resources/filling.erts | 16 |
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 | ||
| 115 | Name: 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 | |||
| 115 | Name: Type 5 | 129 | Name: Type 5 |
| 116 | 130 | ||
| 117 | /* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy | 131 | /* woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy woooomy |