Andreas Röhler <andreas.roehler@easy-emacs.de> writes:

> please permit ‘word-at-point’ to hand over optional arg ‘no-properties’
>
> ‘thing-at-point’ comes with an optional argument ‘no-properties’.
> Seems there is no way to set it from calling ‘word-at-point’.
>
> With attached patch:
>
> (setq a (word-at-point t))foo
>
> a ==> "foo"
>
> ;; current constraint:
> (setq b (word-at-point))foo
>
> b ==> #("foo" 0 2 (fontified t) 2 3 (fontified t rear-nonsticky t))

Sure, I guess there's no reason not to.  Any problems with the patch
below?  (I avoided looking at yours since I recall you have some
philosophical/legal objection to signing copyright papers)