diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-20 04:44:18 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-20 04:44:18 +0100 |
| commit | 40a5df81434ce02fba01779256b50976fb74da4f (patch) | |
| tree | 706991cdbf784b269a206df7202cf6bf5b0503db /test/lisp/thingatpt-tests.el | |
| parent | 3bbec2eb2b2a48a0eaac8e83c27313bfbe9d420e (diff) | |
| download | emacs-40a5df81434ce02fba01779256b50976fb74da4f.tar.gz emacs-40a5df81434ce02fba01779256b50976fb74da4f.tar.bz2 emacs-40a5df81434ce02fba01779256b50976fb74da4f.zip | |
Make `symbol-at-point' work in buffers with no symbols
* lisp/thingatpt.el (thing-at-point--end-of-symbol): New function
(bug#14234).
(symbol): Use it instead of `forward-symbol', because the latter
will move to the end of the buffer even if there is no symbol
there. Instead error out like `forward-sexp' and friends.
Diffstat (limited to 'test/lisp/thingatpt-tests.el')
| -rw-r--r-- | test/lisp/thingatpt-tests.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test/lisp/thingatpt-tests.el b/test/lisp/thingatpt-tests.el index c43c81af9fd..b7c315062f9 100644 --- a/test/lisp/thingatpt-tests.el +++ b/test/lisp/thingatpt-tests.el @@ -146,4 +146,18 @@ 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 |