[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111333: * thingatpt.el (end-of-se
From: |
Leo Liu |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r111333: * thingatpt.el (end-of-sexp): Use syntax-after. |
Date: |
Thu, 14 Mar 2013 22:16:00 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r111333: * thingatpt.el (end-of-sexp): Use syntax-after.,
Leo Liu <=