procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert "Make `symbol-at-point' work in buffers with no symbols"

Browse source 
This reverts commit 40a5df8143.

This fails when a point is after a symbol, and there's
nothing else in the buffer.
This commit is contained in:
Lars Ingebrigtsen 2021-01-20 05:44:16 +01:00
parent c502cdd2b7
commit 8b33b76eb9
2 changed files with 0 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/thingatpt.el
View file

@ -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)

14
test/lisp/thingatpt-tests.el
View file

@ -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