unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Re: master 5ecd35555e9: Fix c-ts-common filling
       [not found] ` <20240805035008.C71C3C0EFEE@vcs2.savannah.gnu.org>
@ 2024-08-07  1:23   ` Po Lu
  2024-08-07  4:56     ` Yuan Fu
  0 siblings, 1 reply; 2+ messages in thread
From: Po Lu @ 2024-08-07  1:23 UTC (permalink / raw)
  To: emacs-devel; +Cc: Yuan Fu

Yuan Fu <casouri@gmail.com> writes:

> branch: master
> commit 5ecd35555e9e20de9717f0184f58a15d8a2e68a3
> Author: Yuan Fu <casouri@gmail.com>
> Commit: Yuan Fu <casouri@gmail.com>
>
>     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.
> ---
>  lisp/progmodes/c-ts-common.el                        |  6 +++---
>  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."
>        ;; 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))))

This (and connected changes) produced merge conflicts between emacs-30
and master, which I have attempted to resolve so that the product
builds, but since I must confess to understanding very little of this
code, please verify that no regressions were introduced in the process.



^ permalink raw reply	[flat|nested] 2+ messages in thread

* Re: master 5ecd35555e9: Fix c-ts-common filling
  2024-08-07  1:23   ` master 5ecd35555e9: Fix c-ts-common filling Po Lu
@ 2024-08-07  4:56     ` Yuan Fu
  0 siblings, 0 replies; 2+ messages in thread
From: Yuan Fu @ 2024-08-07  4:56 UTC (permalink / raw)
  To: Po Lu; +Cc: Emacs Devel



> On Aug 6, 2024, at 6:23 PM, Po Lu <luangruo@yahoo.com> wrote:
> 
> Yuan Fu <casouri@gmail.com> writes:
> 
>> branch: master
>> commit 5ecd35555e9e20de9717f0184f58a15d8a2e68a3
>> Author: Yuan Fu <casouri@gmail.com>
>> Commit: Yuan Fu <casouri@gmail.com>
>> 
>>    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.
>> ---
>> lisp/progmodes/c-ts-common.el                        |  6 +++---
>> 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."
>>       ;; 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))))
> 
> This (and connected changes) produced merge conflicts between emacs-30
> and master, which I have attempted to resolve so that the product
> builds, but since I must confess to understanding very little of this
> code, please verify that no regressions were introduced in the process.

Yes, sorry for the trouble. Your change is correct!

Yuan


^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2024-08-07  4:56 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
     [not found] <172282980799.32577.17823414050456920@vcs2.savannah.gnu.org>
     [not found] ` <20240805035008.C71C3C0EFEE@vcs2.savannah.gnu.org>
2024-08-07  1:23   ` master 5ecd35555e9: Fix c-ts-common filling Po Lu
2024-08-07  4:56     ` Yuan Fu

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).