[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111333: * thingatpt.el (end-of-sexp): Use syntax-after.

[Leo Liu]

------------------------------------------------------------
revno: 111333
committer: Leo Liu <address@hidden>
branch nick: emacs-24
timestamp: Thu 2013-03-14 22:16:00 +0800
message:
  * thingatpt.el (end-of-sexp): Use syntax-after.
modified:
  lisp/ChangeLog
  lisp/thingatpt.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-14 11:48:05 +0000
+++ b/lisp/ChangeLog    2013-03-14 14:16:00 +0000
@@ -1,6 +1,6 @@
 2013-03-14  Leo Liu  <address@hidden>
 
-       * thingatpt.el (end-of-sexp): Fix bug#13952.
+       * thingatpt.el (end-of-sexp): Fix bug#13952.  Use syntax-after.
 
 2013-03-11  Glenn Morris  <address@hidden>
 

=== modified file 'lisp/thingatpt.el'
--- a/lisp/thingatpt.el 2013-03-14 11:48:05 +0000
+++ b/lisp/thingatpt.el 2013-03-14 14:16:00 +0000
@@ -182,7 +182,7 @@
 (defun end-of-sexp ()
   "Move point to the end of the current sexp.
 \[This is an internal function.]"
-  (let ((char-syntax (and (char-after) (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)