[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: (thing-at-point 'defun)
From: |
Leo |
Subject: |
Re: (thing-at-point 'defun) |
Date: |
Tue, 6 Apr 2010 16:53:57 +0100 |
On 6 April 2010 16:49, Drew Adams <address@hidden> 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