Subject: Re: bug#13952: 24.3.50; thingatpoint at end of buffer

From: Leo Liu <[email-masked]>
Date: Thu, 14 Mar 2013 18:58:44 +0800

On 2013-03-14 15:14 +0800, [email-masked] wrote:
> - make an empty buffer
> - type a number
> - (thing-at-point 'number)

I will install the following fix after syncing up my emacs-24 branch.

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