From 786ab4a5ca0a326a1c2d44dcbfed8427f7783062 Mon Sep 17 00:00:00 2001 From: Nicolas Richard Date: Thu, 28 Apr 2016 12:38:38 +0200 Subject: [PATCH] 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). --- lisp/thingatpt.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 () -- 2.39.2