mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Chong Yidong 2012-10-30 06:58:53 +08:00
parent ba11600816
commit 748b0d840f
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View 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

1
lisp/thingatpt.el
View 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."