Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
522d8129
Commit
522d8129
authored
Dec 06, 2005
by
Kenichi Handa
Browse files
(kinsoku-longer): Check eolp, not eobp.
parent
564b25a4
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
2 deletions
+6
-2
lisp/ChangeLog
lisp/ChangeLog
+4
-0
lisp/international/kinsoku.el
lisp/international/kinsoku.el
+2
-2
No files found.
lisp/ChangeLog
View file @
522d8129
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)
...
...
lisp/international/kinsoku.el
View file @
522d8129
...
...
@@ -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 (eo
b
p))
(while (and (not (eo
l
p))
(or (aref (char-category-set (following-char)) ?>)
;; protect non-kinsoku words
(not (or (eq (preceding-char) ? )
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment