Commit 748b0d84 authored by Chong Yidong's avatar Chong Yidong
Browse files

* thingatpt.el (number-at-point): Apply a thing-at-point property.

parent ba116008
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
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment