Re: list-at-point

[Andreas Roehler]

>  What do you do if scan-lists reports an error?


Condition case re-introduced...

It now reads as follows:


(defun bounds-of-thatpt (thing &optional arg)
 "
 Determine the start and end buffer locations for the THING at point.
 THING is a symbol which specifies the kind of syntactic entity you want.
 Possibilities include `symbol', `list', `sexp', `defun', `filename', 
`url',
 `word', `sentence', `whitespace', `line', `page' and others."
 (condition-case nil
     (save-excursion
     (let ((orig (point))
            (beg (progn
               (funcall ;; First, move to beg.
                (or (get thing 'beginning-op)
                (lambda ()
                  (forward-char 1)
                  (forward-thing thing -1))))
               (point)))
            (end
             (progn  (funcall ;; Then move to end.
              (or (get thing 'end-op)
              (lambda () (forward-thing thing 1))))
                (point))))
       ;; if orig not between beg and end, failure, nil
       (when (and(<= beg orig) (<= orig end) (< beg end))
         (cons beg end))))
   (error nil)))


Please have a look at the newly published thingatpt-util.el at 
gnu.emacs.sources


Thanks

__
Andreas Roehler