From 00094c26f3140609f43276673908530fe3390cfc Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Thu, 14 Mar 2013 19:48:05 +0800 Subject: [PATCH] * thingatpt.el (end-of-sexp): Fix bug#13952. --- lisp/ChangeLog | 4 ++++ lisp/thingatpt.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b853399e462..85d0d5e9c39 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-03-14 Leo Liu + + * thingatpt.el (end-of-sexp): Fix bug#13952. + 2013-03-11 Glenn Morris * Version 24.3 released. 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) -- 2.39.2