From 748b0d840fea13e0b6ba36341873dc68e57f5bc5 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Tue, 30 Oct 2012 06:58:53 +0800 Subject: [PATCH] * thingatpt.el (number-at-point): Apply a thing-at-point property. --- lisp/ChangeLog | 4 ++++ lisp/thingatpt.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 54285a589eb..2474574de92 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-10-29 Chong Yidong + + * thingatpt.el (number-at-point): Apply a thing-at-point property. + 2012-10-29 Stefan Monnier * vc/diff-mode.el (diff-context->unified): Don't get confused by "hunk diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index dedd9c8c189..50e3b785696 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -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." -- 2.39.2