/[emacs]/emacs/lisp/international/kinsoku.el
ViewVC logotype

Diff of /emacs/lisp/international/kinsoku.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by lute, Mon Jul 4 17:22:27 2005 UTC revision 1.15 by handa, Tue Dec 6 06:23:54 2005 UTC
# Line 109  The value 0 means there's no limitation. Line 109  The value 0 means there's no limitation.
109  $A!.!0#"#(!2!4!6!8!:!<!>!c!d!e#@!f!l(B"  $A!.!0#"#(!2!4!6!8!:!<!>!c!d!e#@!f!l(B"
110           ;; Chinese GB2312           ;; Chinese GB2312
111           "$A(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(h(B\           "$A(E(F(G(H(I(J(K(L(M(N(O(P(Q(R(S(T(U(V(W(X(Y(h(B\
112  $(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"
113           ;; Chinese BIG5           ;; Chinese BIG5
114           "$(0!d!f!h!j!k!q!p"i"j"k"n"x$u$v$w$x$y$z${(B\           "$(0!d!f!h!j!k!q!p"i"j"k"n"x$u$v$w$x$y$z${(B\
115  $(0$|$}$~%!%"%#%$%%%&%'%(%)%*%+%:(B"))  $(0$|$}$~%!%"%#%$%%%&%'%(%)%*%+%:(B"))
# Line 126  The value 0 means there's no limitation. Line 126  The value 0 means there's no limitation.
126    (let ((pos-and-column    (let ((pos-and-column
127           (save-excursion           (save-excursion
128             (forward-char 1)             (forward-char 1)
129             (while (and (not (eobp))             (while (and (not (eolp))
130                         (or (aref (char-category-set (following-char)) ?>)                         (or (aref (char-category-set (following-char)) ?>)
131                             ;; protect non-kinsoku words                             ;; protect non-kinsoku words
132                             (not (or (eq (preceding-char) ? )                             (not (or (eq (preceding-char) ? )

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26