Re: mark-word

[Lennart Borgman (gmail)]

Stephen J. Turnbull wrote:
> Andreas Röhler writes:
>
>  > What about this?
>  > 
>  > (defun mark-word-at-point ()
>  >   " "
>  >   (interactive)
>  >   (beginning-of-thing 'word)
>  >   (push-mark nil nil t)
>  >   (end-of-thing 'word))
>
> The name is not descriptive of how it differs from `mark-word';
> `mark-word' already has "at point" semantics.

Is there a mark-thing-at-point? If there were then mark-word-at-point 
could be implemented using that.