diff options
| author | Leo Liu <sdl.web@gmail.com> | 2013-03-14 19:48:05 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2013-03-14 19:48:05 +0800 |
| commit | 00094c26f3140609f43276673908530fe3390cfc (patch) | |
| tree | eaafc540ff682c8d0cf7baca3ce3a4c8582eeaad /lisp/thingatpt.el | |
| parent | 206580428516ca7b21d438b5ae4618e4c8b49ac8 (diff) | |
| download | emacs-00094c26f3140609f43276673908530fe3390cfc.tar.gz | |
* thingatpt.el (end-of-sexp): Fix bug#13952.
Diffstat (limited to 'lisp/thingatpt.el')
| -rw-r--r-- | lisp/thingatpt.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index e1e3e8e1e46..4fd9e2e83b2 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -182,7 +182,7 @@ The bounds of THING are determined by `bounds-of-thing-at-point'." (defun end-of-sexp () "Move point to the end of the current sexp. \[This is an internal function.]" - (let ((char-syntax (char-syntax (char-after)))) + (let ((char-syntax (and (char-after) (char-syntax (char-after))))) (if (or (eq char-syntax ?\)) (and (eq char-syntax ?\") (in-string-p))) (forward-char 1) |