[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r103736: Add support for defun in thi
From: |
Leo Liu |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r103736: Add support for defun in thingatpt.el |
Date: |
Fri, 25 Mar 2011 00:38:12 +0800 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 103736
author: Drew Adams <address@hidden>
committer: Leo Liu <address@hidden>
branch nick: trunk
timestamp: Fri 2011-03-25 00:38:12 +0800
message:
Add support for defun in thingatpt.el
modified:
lisp/ChangeLog
lisp/thingatpt.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-03-23 18:11:15 +0000
+++ b/lisp/ChangeLog 2011-03-24 16:38:12 +0000
@@ -1,3 +1,7 @@
+2011-03-24 Drew Adams <address@hidden>
+
+ * thingatpt.el: Support `defun'.
+
2011-03-23 Leo Liu <address@hidden>
* abbrevlist.el: Move to obsolete/abbrevlist.el.
=== modified file 'lisp/thingatpt.el'
--- a/lisp/thingatpt.el 2011-01-26 08:36:39 +0000
+++ b/lisp/thingatpt.el 2011-03-24 16:38:12 +0000
@@ -207,6 +207,12 @@
(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:]_.${}#%,:"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r103736: Add support for defun in thingatpt.el,
Leo Liu <=