[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 786ab4a: Fix number-at-point in lisp buffers
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 786ab4a: Fix number-at-point in lisp buffers |
Date: |
Thu, 28 Apr 2016 10:39:38 +0000 |
branch: master
commit 786ab4a5ca0a326a1c2d44dcbfed8427f7783062
Author: Nicolas Richard <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 9920fa0..df5c52d 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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 786ab4a: Fix number-at-point in lisp buffers,
Lars Ingebrigtsen <=