symbol-at-point

[Andreas Röhler]

AFAIU implementation of `symbol-at-point' is not
straightforward in relation with other thing at point
functions:

These return THING as a substring of buffer, doing
nothing else, whereas symbol-at-point interns existing
THING unconditionally

(defun symbol-at-point ()
  (let ((thing (thing-at-point 'symbol)))
    (if thing (intern thing))))

Wouldn't it be more clean to write a separate (intern
SYMBOL-at-point) function, if someone wants to do that?

Thanks

Andreas Roehler