diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-12-06 06:24:41 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-12-06 06:24:41 +0000 |
| commit | 522d8129134cfe245cba8148a280c79b524ad128 (patch) | |
| tree | 932f15c274a42eded89a132d514c3bd5232bbead | |
| parent | 564b25a4e2bf4a2a5e105f01f7ed00790184539b (diff) | |
| download | emacs-522d8129134cfe245cba8148a280c79b524ad128.tar.gz | |
(kinsoku-longer): Check eolp, not eobp.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/international/kinsoku.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f96b90bc68e..501bd15e7ec 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-12-06 Kenichi Handa <handa@m17n.org> + + * international/kinsoku.el (kinsoku-longer): Check eolp, not eobp. + 2005-12-06 Nick Roberts <nickrob@snap.net.nz> * progmodes/gdb-ui.el (gdb-var-create-handler) diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el index e660d928946..9d2a03fd6f0 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) ? ) |