diff options
| author | Leo Liu | 2013-03-14 22:16:00 +0800 |
|---|---|---|
| committer | Leo Liu | 2013-03-14 22:16:00 +0800 |
| commit | 95b43468a4958795cee5e7bd232239c5f61d2475 (patch) | |
| tree | 13639584afaec4352ff1319435fa204571d28e69 | |
| parent | 00094c26f3140609f43276673908530fe3390cfc (diff) | |
| download | emacs-95b43468a4958795cee5e7bd232239c5f61d2475.tar.gz emacs-95b43468a4958795cee5e7bd232239c5f61d2475.zip | |
* thingatpt.el (end-of-sexp): Use syntax-after.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/thingatpt.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 85d0d5e9c39..993d9789bad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | 2013-03-14 Leo Liu <sdl.web@gmail.com> | 1 | 2013-03-14 Leo Liu <sdl.web@gmail.com> |
| 2 | 2 | ||
| 3 | * thingatpt.el (end-of-sexp): Fix bug#13952. | 3 | * thingatpt.el (end-of-sexp): Fix bug#13952. Use syntax-after. |
| 4 | 4 | ||
| 5 | 2013-03-11 Glenn Morris <rgm@gnu.org> | 5 | 2013-03-11 Glenn Morris <rgm@gnu.org> |
| 6 | 6 | ||
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 4fd9e2e83b2..8c45659ee4a 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'." | |||
| 182 | (defun end-of-sexp () | 182 | (defun end-of-sexp () |
| 183 | "Move point to the end of the current sexp. | 183 | "Move point to the end of the current sexp. |
| 184 | \[This is an internal function.]" | 184 | \[This is an internal function.]" |
| 185 | (let ((char-syntax (and (char-after) (char-syntax (char-after))))) | 185 | (let ((char-syntax (syntax-after (point)))) |
| 186 | (if (or (eq char-syntax ?\)) | 186 | (if (or (eq char-syntax ?\)) |
| 187 | (and (eq char-syntax ?\") (in-string-p))) | 187 | (and (eq char-syntax ?\") (in-string-p))) |
| 188 | (forward-char 1) | 188 | (forward-char 1) |