From 8b33b76eb9fbb857bccbe3d223c961c486e4e8f9 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 20 Jan 2021 05:44:16 +0100 Subject: [PATCH] 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 69c23c35431..d3ba941fcc2 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 b7c315062f9..c43c81af9fd 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 -- 2.39.5