Re: mark-word

["Stephen J. Turnbull" <stephen@xemacs.org>]

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.  Point and mark should
end up in the opposite order, for compatibility with `mark-paragraph'.
Also, I suspect that you'd be surprised by the result in this context:

    foo bar baz?  -!-quux.

With point at -!- I would expect "quux" to be highlighted, but your
function gives "baz".