beginning-of-thing-pos, end-of-thing-pos

[Andreas Röhler]

Hi,

at several occasions I needed the buffer-position of a
string (thing).

As I wrote my own thingatpt-utils, already have that. 

But would prefer to keep every code as much
as possible conform with distribution.

Therefore my request for a (very) simple addition:

thingatpt.el knows about THING's position:

(defun beginning-of-thing (thing)
  (let ((bounds (bounds-of-thing-at-point thing)))
    (or bounds (error "No %s here" thing))
    (goto-char (car bounds))))

(defun end-of-thing (thing)
  (let ((bounds (bounds-of-thing-at-point thing)))
    (or bounds (error "No %s here" thing))
    (goto-char (cdr bounds))))

As visible, these functions move point rather than
returning the pos. Simply need some reduction:

(defun beginning-of-thing-pos (thing)
  (let ((bounds (bounds-of-thing-at-point thing)))
    (or bounds (error "No %s here" thing))
    (car bounds)))

(defun end-of-thing-pos (thing)
  (let ((bounds (bounds-of-thing-at-point thing)))
    (or bounds (error "No %s here" thing))
    (cdr bounds)))

Afterwards things like that are possible:

(defun end-of-word-at-point ()
  " "
  (interactive)
  (message "%s" (end-of-thing-pos 'word)))

May `beginning-of-thing-pos' and `end-of-thing-pos'
be included?

Thanks

Andreas Roehler