[Emacs-diffs] /srv/bzr/emacs/trunk r110730: * thingatpt.el (number-at-point): Apply a thing-at-point property.

[Chong Yidong]

------------------------------------------------------------
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."