[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8b33b76: Revert "Make `symbol-at-point' work in buffers with no s
From: |
Lars Ingebrigtsen |
Subject: |
master 8b33b76: Revert "Make `symbol-at-point' work in buffers with no symbols" |
Date: |
Tue, 19 Jan 2021 23:45:20 -0500 (EST) |
branch: master
commit 8b33b76eb9fbb857bccbe3d223c961c486e4e8f9
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Revert "Make `symbol-at-point' work in buffers with no symbols"
This reverts commit 40a5df81434ce02fba01779256b50976fb74da4f.
This fails when a point is after a symbol, and there's
nothing else in the buffer.
---
lisp/thingatpt.el | 8 --------
test/lisp/thingatpt-tests.el | 14 --------------
2 files changed, 22 deletions(-)
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 69c23c3..d3ba941 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -218,14 +218,6 @@ The bounds of THING are determined by
`bounds-of-thing-at-point'."
(put 'sexp 'beginning-op 'thing-at-point--beginning-of-sexp)
-;; Symbols
-
-(put 'symbol 'end-op 'thing-at-point--end-of-symbol)
-
-(defun thing-at-point--end-of-symbol ()
- "Move point to the end of the current symbol."
- (re-search-forward "\\(\\sw\\|\\s_\\)+"))
-
;; Lists
(put 'list 'bounds-of-thing-at-point 'thing-at-point-bounds-of-list-at-point)
diff --git a/test/lisp/thingatpt-tests.el b/test/lisp/thingatpt-tests.el
index b7c3150..c43c81a 100644
--- a/test/lisp/thingatpt-tests.el
+++ b/test/lisp/thingatpt-tests.el
@@ -146,18 +146,4 @@ position to retrieve THING.")
(should (thing-at-point-looking-at "2abcd"))
(should (equal (match-data) m2)))))
-(ert-deftest test-narrow-buffer-symbol ()
- (with-temp-buffer
- (insert "foo bar zot")
- (goto-char 5)
- (should (equal (symbol-at-point) 'bar)))
- (with-temp-buffer
- (insert "`[[`(")
- (goto-char 2)
- (should (equal (symbol-at-point) nil)))
- (with-temp-buffer
- (insert "aa `[[`(")
- (goto-char 4)
- (should (equal (symbol-at-point) nil))))
-
;;; thingatpt.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8b33b76: Revert "Make `symbol-at-point' work in buffers with no symbols",
Lars Ingebrigtsen <=