[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111332: * thingatpt.el (end-of-sexp): Fix bug#13952.

[Leo Liu]

------------------------------------------------------------
revno: 111332
fixes bug: http://debbugs.gnu.org/13952
committer: Leo Liu <address@hidden>
branch nick: emacs-24
timestamp: Thu 2013-03-14 19:48:05 +0800
message:
  * thingatpt.el (end-of-sexp): Fix bug#13952.
modified:
  lisp/ChangeLog
  lisp/thingatpt.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-11 02:35:23 +0000
+++ b/lisp/ChangeLog    2013-03-14 11:48:05 +0000
@@ -1,3 +1,7 @@
+2013-03-14  Leo Liu  <address@hidden>
+
+       * thingatpt.el (end-of-sexp): Fix bug#13952.
+
 2013-03-11  Glenn Morris  <address@hidden>
 
        * Version 24.3 released.

=== modified file 'lisp/thingatpt.el'
--- a/lisp/thingatpt.el 2013-01-01 09:11:05 +0000
+++ b/lisp/thingatpt.el 2013-03-14 11:48:05 +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 (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)