]> git.eshelyaron.com Git - emacs.git/commitdiff
* thingatpt.el (number-at-point): Apply a thing-at-point property.
authorChong Yidong <cyd@gnu.org>
Mon, 29 Oct 2012 22:58:53 +0000 (06:58 +0800)
committerChong Yidong <cyd@gnu.org>
Mon, 29 Oct 2012 22:58:53 +0000 (06:58 +0800)
lisp/ChangeLog
lisp/thingatpt.el

index 54285a589ebce12166e02dd4266bc0a8ef0e50f1..2474574de92cdf7449ad854919bf0e5feb6ad9d5 100644 (file)
@@ -1,3 +1,7 @@
+2012-10-29  Chong Yidong  <cyd@gnu.org>
+
+       * thingatpt.el (number-at-point): Apply a thing-at-point property.
+
 2012-10-29  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * vc/diff-mode.el (diff-context->unified): Don't get confused by "hunk
index dedd9c8c1898e06d9d08d06ae1e4133cc20a7226..50e3b7856961b4d9382d915709ced69405f11ccc 100644 (file)
@@ -509,6 +509,7 @@ Signal an error if the entire string was not used."
 (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."