diff options
| author | Nicolas Richard <theonewiththeevillook@yahoo.fr> | 2016-04-28 12:38:38 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-28 12:38:38 +0200 |
| commit | 786ab4a5ca0a326a1c2d44dcbfed8427f7783062 (patch) | |
| tree | 56514a7f56db08f4429b82c0729b26c905cfc956 /lisp/thingatpt.el | |
| parent | 866e3c050fe64fee81f29a335a50a11b2562422e (diff) | |
| download | emacs-786ab4a5ca0a326a1c2d44dcbfed8427f7783062.tar.gz | |
Fix number-at-point in lisp buffers
* lisp/thingatpt.el (number-at-point): Don't say that things
like ?a are numbers in lisp mode buffers (bug#8634).
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 9920fa06d0c..df5c52d4d61 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -603,7 +603,10 @@ Signal an error if the entire string was not used." ;;;###autoload (defun number-at-point () "Return the number at point, or nil if none is found." - (form-at-point 'sexp 'numberp)) + (when (thing-at-point-looking-at "-?[0-9]+\\.?[0-9]*" 500) + (string-to-number + (buffer-substring (match-beginning 0) (match-end 0))))) + (put 'number 'thing-at-point 'number-at-point) ;;;###autoload (defun list-at-point () |