Mercurial > emacs

changeset 67333:99f4a941eb41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(kinsoku-longer): Check eolp, not eobp.
author Kenichi Handa <handa@m17n.org>
date Tue, 06 Dec 2005 06:23:54 +0000
parents dc9f95e91f3b
children f3528e5553c8
files lisp/international/kinsoku.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/kinsoku.el	Tue Dec 06 02:31:16 2005 +0000
+++ b/lisp/international/kinsoku.el	Tue Dec 06 06:23:54 2005 +0000
@@ -109,7 +109,7 @@
 $A!.!0#"#(!2!4!6!8!:!<!>!c!d!e#@!f!l(B"
 	 ;; Chinese GB2312
 	 "$A(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(h(B\
-$(0!>!@!B!D!F!H!J!L!N!P!R!T!V!X!Z!\!^!`!b(B"
+\$(0!>!@!B!D!F!H!J!L!N!P!R!T!V!X!Z!\!^!`!b(B"
 	 ;; Chinese BIG5
 	 "$(0!d!f!h!j!k!q!p"i"j"k"n"x$u$v$w$x$y$z${(B\
 $(0$|$}$~%!%"%#%$%%%&%'%(%)%*%+%:(B"))
@@ -126,7 +126,7 @@
   (let ((pos-and-column
 	 (save-excursion
 	   (forward-char 1)
-	   (while (and (not (eobp))
+	   (while (and (not (eolp))
 		       (or (aref (char-category-set (following-char)) ?>)
 			   ;; protect non-kinsoku words
 			   (not (or (eq (preceding-char) ? )