From 522d8129134cfe245cba8148a280c79b524ad128 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 6 Dec 2005 06:24:41 +0000 Subject: [PATCH] (kinsoku-longer): Check eolp, not eobp. --- lisp/ChangeLog | 4 ++++ lisp/international/kinsoku.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f96b90bc68..501bd15e7e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-12-06 Kenichi Handa + + * international/kinsoku.el (kinsoku-longer): Check eolp, not eobp. + 2005-12-06 Nick Roberts * progmodes/gdb-ui.el (gdb-var-create-handler) diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el index e660d92894..9d2a03fd6f 100644 --- a/lisp/international/kinsoku.el +++ b/lisp/international/kinsoku.el @@ -109,7 +109,7 @@ The value 0 means there's no limitation.") $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 @@ The value 0 means there's no limitation.") (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) ? ) -- 2.20.1