diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-03-16 18:08:22 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-03-16 18:08:22 -0400 |
| commit | 78be8b64657aeca0472d708450ea1ce2bc142606 (patch) | |
| tree | dccbdc45e747a47b44be92abab79cca15a30111f /lisp/thingatpt.el | |
| parent | 6615748ac6bcff258ef548f70bdcc1ab9f740472 (diff) | |
| parent | 67ed8fcd04edeff2d4931acf476e7067c5ceeef2 (diff) | |
| download | emacs-78be8b64657aeca0472d708450ea1ce2bc142606.tar.gz | |
Merge from emacs-24
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 9526cb76e74..259cd772b12 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 (syntax-after (point)))) (if (or (eq char-syntax ?\)) (and (eq char-syntax ?\") (in-string-p))) (forward-char 1) |