procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add support for defun in thingatpt.el

Browse source
This commit is contained in:
Drew Adams 2011-03-25 00:38:12 +08:00 • committed by Leo Liu
parent 1149507c7f
commit e8974c48ae
2 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2011-03-24 Drew Adams <drew.adams@oracle.com>
* thingatpt.el: Support `defun'.
2011-03-23 Leo Liu <sdl.web@gmail.com>
* abbrevlist.el: Move to obsolete/abbrevlist.el.

6
lisp/thingatpt.el
View file

@ -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:]_.${}#%,:"