mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-29 19:48:19 +00:00
Code Issues Releases Activity

* thingatpt.el (end-of-sexp): Fix bug#13952.

Browse Source
This commit is contained in:
Leo Liu 2013-03-14 19:48:05 +08:00
parent 2065804285
commit 00094c26f3
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

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

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