[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110730: * thingatpt.el (number-at-po
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110730: * thingatpt.el (number-at-point): Apply a thing-at-point property. |
Date: |
Tue, 30 Oct 2012 06:58:53 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110730
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Tue 2012-10-30 06:58:53 +0800
message:
* thingatpt.el (number-at-point): Apply a thing-at-point property.
modified:
lisp/ChangeLog
lisp/thingatpt.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-10-29 15:14:10 +0000
+++ b/lisp/ChangeLog 2012-10-29 22:58:53 +0000
@@ -1,3 +1,7 @@
+2012-10-29 Chong Yidong <address@hidden>
+
+ * thingatpt.el (number-at-point): Apply a thing-at-point property.
+
2012-10-29 Stefan Monnier <address@hidden>
* vc/diff-mode.el (diff-context->unified): Don't get confused by "hunk
=== modified file 'lisp/thingatpt.el'
--- a/lisp/thingatpt.el 2012-10-29 10:03:21 +0000
+++ b/lisp/thingatpt.el 2012-10-29 22:58:53 +0000
@@ -509,6 +509,7 @@
(defun number-at-point ()
"Return the number at point, or nil if none is found."
(form-at-point 'sexp 'numberp))
+(put 'number 'thing-at-point 'number-at-point)
;;;###autoload
(defun list-at-point ()
"Return the Lisp list at point, or nil if none is found."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110730: * thingatpt.el (number-at-point): Apply a thing-at-point property.,
Chong Yidong <=