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
