diff options
| author | Drew Adams <drew.adams@oracle.com> | 2011-03-25 00:38:12 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2011-03-25 00:38:12 +0800 |
| commit | e8974c48ae2f265555c7772ea0989fca5e4158b8 (patch) | |
| tree | 1799d0440661e952e15294ab1ec2e7be1432bddb /lisp/thingatpt.el | |
| parent | 1149507c7fe8c24d93448eea2d0114746c580782 (diff) | |
| download | emacs-e8974c48ae2f265555c7772ea0989fca5e4158b8.tar.gz | |
Add support for defun in thingatpt.el
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 020faa197cd..a56c3e4d501 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -207,6 +207,12 @@ a symbol as a valid THING." (cons opoint end)))) (error nil))))) +;; Defuns + +(put 'defun 'beginning-op 'beginning-of-defun) +(put 'defun 'end-op 'end-of-defun) +(put 'defun 'forward-op 'end-of-defun) + ;; Filenames and URLs www.com/foo%32bar (defvar thing-at-point-file-name-chars "-~/[:alnum:]_.${}#%,:" |