diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-26 07:59:41 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-26 07:59:41 +0200 |
| commit | 0efb88150df56559e8d649e657902fb51ad43bc1 (patch) | |
| tree | 6bb9ffca7c5749a6079a8007903a6100da9003cd /lisp | |
| parent | 263b9680f3204be994a90f3f2b73adaa81bec8dd (diff) | |
| download | emacs-0efb88150df56559e8d649e657902fb51ad43bc1.tar.gz emacs-0efb88150df56559e8d649e657902fb51ad43bc1.tar.bz2 emacs-0efb88150df56559e8d649e657902fb51ad43bc1.zip | |
Tweak the behaviour of thing-at-point--end-of-sexp
* lisp/thingatpt.el (thing-at-point--end-of-sexp): Don't return
nil when called with point between two parentheses (bug#29499).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/thingatpt.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 60a20e2d188..319f4b2cf8a 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -194,7 +194,9 @@ The bounds of THING are determined by `bounds-of-thing-at-point'." (if (or (eq char-syntax ?\)) (and (eq char-syntax ?\") (nth 3 (syntax-ppss)))) (forward-char 1) - (forward-sexp 1)))) + (condition-case _ + (forward-sexp 1) + (scan-error nil))))) (define-obsolete-function-alias 'end-of-sexp 'thing-at-point--end-of-sexp "25.1" |