Subject: bug#69097: [PATCH] Add 'kill-region-or-word' command

From: Sean Whitton <[email-masked]>
Date: Thu, 05 Sep 2024 14:27:25 +0100

Hello,

On Thu 05 Sep 2024 at 09:39am GMT, Philip Kaludercic wrote:

>>> +                     ((eq region 'unix-word)
>>> +                      (let ((end (point)))
>>> +                        (save-excursion
>>> +                          (skip-chars-backward "[:space:]")
>>> +                          (skip-chars-backward "^[:space:]")
>>> +                          (filter-buffer-substring
>>> +                           (if (get-char-property (point) 'read-only)
>>> +                               (next-single-char-property-change
>>> +                                (point) 'read-only nil end)
>>> +                             (point))
>>> +                           end 'delete))))
>>> +                     (region
>>> +                      (funcall region-extract-function 'delete))
>>> +                     ((filter-buffer-substring beg end 'delete)))))
>>
>> Shall I rather commit this as an independent unix-word-rubout?
>>
>> Improves attribution, and it's independently useful.
>
> As a standalone command?

I mean, yeah, I have had it on my C-w for years.  Probably some other
people have implementations too.

-- 
Sean Whitton