diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-10-30 06:58:53 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-10-30 06:58:53 +0800 |
| commit | 748b0d840fea13e0b6ba36341873dc68e57f5bc5 (patch) | |
| tree | e188e7b6365c7647e9e9fca0a6734d69c2f7949b /lisp/thingatpt.el | |
| parent | ba11600816880f862a7a85899bfa3dc41c176273 (diff) | |
| download | emacs-748b0d840fea13e0b6ba36341873dc68e57f5bc5.tar.gz | |
* thingatpt.el (number-at-point): Apply a thing-at-point property.
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." |