procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* thingatpt.el (end-of-sexp): Use syntax-after.

Browse source
This commit is contained in:
Leo Liu 2013-03-14 22:16:00 +08:00
parent 00094c26f3
commit 95b43468a4
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,6 +1,6 @@
2013-03-14 Leo Liu <sdl.web@gmail.com>
* thingatpt.el (end-of-sexp): Fix bug#13952.
* thingatpt.el (end-of-sexp): Fix bug#13952. Use syntax-after.
2013-03-11 Glenn Morris <rgm@gnu.org>

2
lisp/thingatpt.el
View file

@ -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 (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)