diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-04-13 06:20:28 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-04-13 06:20:28 +0000 |
| commit | c01b9ec3f28abb35ca974fd8240b0c624b7486ca (patch) | |
| tree | 5d03fe438ad51677ffb4dffb7d6aee8967874b21 /lisp | |
| parent | ee6f9c59774077640fb26cbff4aaa58e753d57d7 (diff) | |
| download | emacs-c01b9ec3f28abb35ca974fd8240b0c624b7486ca.tar.gz emacs-c01b9ec3f28abb35ca974fd8240b0c624b7486ca.tar.bz2 emacs-c01b9ec3f28abb35ca974fd8240b0c624b7486ca.zip | |
(next-word-boundary-kana): Handle half-width kana.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/characters.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index cd4ef1d2ca1..71260420adf 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -953,12 +953,16 @@ (goto-char (match-end 0))) (if (looking-at "\\cH+") (goto-char (match-end 0))) + (if (looking-at "\\ck+") + (goto-char (match-end 0))) (point)) (let ((category-set (char-category-set (char-after pos))) category) - (if (aref category-set ?K) + (if (or (aref category-set ?K) (aref category-set ?k)) (while (and (> pos limit) - (aref (char-category-set (char-after (1- pos))) ?K)) + (setq category-set + (char-category-set (char-after (1- pos)))) + (or (aref category-set ?K) (aref category-set ?k))) (setq pos (1- pos))) (while (and (> pos limit) (aref (setq category-set |