diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-20 05:44:16 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-01-20 05:44:16 +0100 |
| commit | 8b33b76eb9fbb857bccbe3d223c961c486e4e8f9 (patch) | |
| tree | b413c02ccd9a60f6c3a49db6b33c3454bc9727d0 /lisp/thingatpt.el | |
| parent | c502cdd2b71f396b202e22103cd8aa5b0796fdab (diff) | |
| download | emacs-8b33b76eb9fbb857bccbe3d223c961c486e4e8f9.tar.gz | |
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.
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 8 |
1 files changed, 0 insertions, 8 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) |