Commit e8974c48 authored by Drew Adams's avatar Drew Adams Committed by Leo Liu

Add support for defun in thingatpt.el

parent 1149507c
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.
......
......@@ -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:]_.${}#%,:"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment