(thing-at-point 'defun)

(thing-at-point 'defun)

[Leo]

Hello,

'defun is listed in thing-at-point's doc string. What is this supposed
to do? I eval (thing-at-point 'defun) in various places and it seems
always return nil.

Leo

RE: (thing-at-point 'defun)

[Drew Adams]

> 'defun is listed in thing-at-point's doc string. What is this supposed
> to do? I eval (thing-at-point 'defun) in various places and it seems
> always return nil.

It's a bug (IMO). I use this in thingatpt+.el; it is missing from thingatpt.el:

;; `defun' type
(put 'defun 'beginning-op 'beginning-of-defun)
(put 'defun 'end-op 'end-of-defun)
(put 'defun 'forward-op 'end-of-defun)

Re: (thing-at-point 'defun)

[Leo]

On 6 April 2010 16:49, Drew Adams <drew.adams@oracle.com> wrote:
>> 'defun is listed in thing-at-point's doc string. What is this supposed
>> to do? I eval (thing-at-point 'defun) in various places and it seems
>> always return nil.
>
> It's a bug (IMO). I use this in thingatpt+.el; it is missing from thingatpt.el:
>
> ;; `defun' type
> (put 'defun 'beginning-op 'beginning-of-defun)
> (put 'defun 'end-op 'end-of-defun)
> (put 'defun 'forward-op 'end-of-defun)

Many thanks for this.

Leo